diff options
| -rw-r--r-- | lisp/mail/rmail.el | 6 |
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 |