mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(rmail-convert-to-babyl-format): Fix the last change.

Browse Source
This commit is contained in:
Eli Zaretskii 2003-10-16 16:54:48 +00:00
parent a4fc3ab39e
commit a92122416b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mail/rmail.el
View File

@ -1729,7 +1729,7 @@ It returns t if it got any new messages."
"\n")))
(narrow-to-region (point) (point-max))
(and (= 0 (% count 10))
(message "Converting to Babyl...%d" count)))
(message "Converting to Babyl format...%d" count)))
;;*** MMDF format
((let ((case-fold-search t))
(looking-at rmail-mmdf-delim1))
@ -1756,7 +1756,7 @@ It returns t if it got any new messages."
(narrow-to-region (point) (point-max))
(setq count (1+ count))
(and (= 0 (% count 10))
(message "Converting to Babyl...%d" count)))
(message "Converting to Babyl format...%d" count)))
;;*** Mail format
((looking-at "^From ")
(insert "\^L\n0, unseen,,\n*** EOOH ***\n")
@ -1864,7 +1864,7 @@ It returns t if it got any new messages."
"\n"))
(narrow-to-region (point) (point-max))
(and (= 0 (% count 10))
(message "Converting to Babyl...%d" count)))
(message "Converting to Babyl format...%d" count)))
;;
;; This kludge is because some versions of sendmail.el
;; insert an extra newline at the beginning that shouldn't