aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/mail/rmail.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e1a180190ec..009050b1fbd 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1729,7 +1729,7 @@ It returns t if it got any new messages."
1729 "\n"))) 1729 "\n")))
1730 (narrow-to-region (point) (point-max)) 1730 (narrow-to-region (point) (point-max))
1731 (and (= 0 (% count 10)) 1731 (and (= 0 (% count 10))
1732 (message "Converting to Babyl...%d" count))) 1732 (message "Converting to Babyl format...%d" count)))
1733 ;;*** MMDF format 1733 ;;*** MMDF format
1734 ((let ((case-fold-search t)) 1734 ((let ((case-fold-search t))
1735 (looking-at rmail-mmdf-delim1)) 1735 (looking-at rmail-mmdf-delim1))
@@ -1756,7 +1756,7 @@ It returns t if it got any new messages."
1756 (narrow-to-region (point) (point-max)) 1756 (narrow-to-region (point) (point-max))
1757 (setq count (1+ count)) 1757 (setq count (1+ count))
1758 (and (= 0 (% count 10)) 1758 (and (= 0 (% count 10))
1759 (message "Converting to Babyl...%d" count))) 1759 (message "Converting to Babyl format...%d" count)))
1760 ;;*** Mail format 1760 ;;*** Mail format
1761 ((looking-at "^From ") 1761 ((looking-at "^From ")
1762 (insert "\^L\n0, unseen,,\n*** EOOH ***\n") 1762 (insert "\^L\n0, unseen,,\n*** EOOH ***\n")
@@ -1864,7 +1864,7 @@ It returns t if it got any new messages."
1864 "\n")) 1864 "\n"))
1865 (narrow-to-region (point) (point-max)) 1865 (narrow-to-region (point) (point-max))
1866 (and (= 0 (% count 10)) 1866 (and (= 0 (% count 10))
1867 (message "Converting to Babyl...%d" count))) 1867 (message "Converting to Babyl format...%d" count)))
1868 ;; 1868 ;;
1869 ;; This kludge is because some versions of sendmail.el 1869 ;; This kludge is because some versions of sendmail.el
1870 ;; insert an extra newline at the beginning that shouldn't 1870 ;; insert an extra newline at the beginning that shouldn't