[Emacs-diffs] Changes to emacs/lisp/mail/rmail.el

[Eli Zaretskii]

Index: emacs/lisp/mail/rmail.el
diff -c emacs/lisp/mail/rmail.el:1.373 emacs/lisp/mail/rmail.el:1.374
*** emacs/lisp/mail/rmail.el:1.373      Mon Sep  1 11:45:30 2003
--- emacs/lisp/mail/rmail.el    Thu Oct 16 12:49:27 2003
***************
*** 1727,1733 ****
                     (insert "X-Coding-System: "
                             (symbol-name last-coding-system-used)
                             "\n")))
!              (narrow-to-region (point) (point-max)))
              ;;*** MMDF format
              ((let ((case-fold-search t))
                 (looking-at rmail-mmdf-delim1))
--- 1727,1735 ----
                     (insert "X-Coding-System: "
                             (symbol-name last-coding-system-used)
                             "\n")))
!              (narrow-to-region (point) (point-max))
!              (and (= 0 (% count 10))
!                   (message "Converting to Babyl...%d" count)))
              ;;*** MMDF format
              ((let ((case-fold-search t))
                 (looking-at rmail-mmdf-delim1))
***************
*** 1752,1758 ****
                         (symbol-name last-coding-system-used)
                         "\n"))
               (narrow-to-region (point) (point-max))
!              (setq count (1+ count)))
              ;;*** Mail format
              ((looking-at "^From ")
               (insert "\^L\n0, unseen,,\n*** EOOH ***\n")
--- 1754,1762 ----
                         (symbol-name last-coding-system-used)
                         "\n"))
               (narrow-to-region (point) (point-max))
!              (setq count (1+ count))
!              (and (= 0 (% count 10))
!                   (message "Converting to Babyl...%d" count)))
              ;;*** Mail format
              ((looking-at "^From ")
               (insert "\^L\n0, unseen,,\n*** EOOH ***\n")
***************
*** 1858,1864 ****
                 (insert "X-Coding-System: "
                         (symbol-name last-coding-system-used)
                         "\n"))
!              (narrow-to-region (point) (point-max)))
              ;;
              ;; This kludge is because some versions of sendmail.el
              ;; insert an extra newline at the beginning that shouldn't
--- 1862,1870 ----
                 (insert "X-Coding-System: "
                         (symbol-name last-coding-system-used)
                         "\n"))
!              (narrow-to-region (point) (point-max))
!              (and (= 0 (% count 10))
!                   (message "Converting to Babyl...%d" count)))
              ;;
              ;; This kludge is because some versions of sendmail.el
              ;; insert an extra newline at the beginning that shouldn't