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): Display a message while converting to Babyl.

Browse Source
This commit is contained in:
Eli Zaretskii 2003-10-16 16:49:27 +00:00
parent 75c65b2066
commit d33e73c1eb
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/mail/rmail.el
View File

@ -1727,7 +1727,9 @@ It returns t if it got any new messages."
(insert "X-Coding-System: "
(symbol-name last-coding-system-used)
"\n")))
(narrow-to-region (point) (point-max)))
(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,7 +1754,9 @@ It returns t if it got any new messages."
(symbol-name last-coding-system-used)
"\n"))
(narrow-to-region (point) (point-max))
(setq count (1+ count)))
(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,7 +1862,9 @@ It returns t if it got any new messages."
(insert "X-Coding-System: "
(symbol-name last-coding-system-used)
"\n"))
(narrow-to-region (point) (point-max)))
(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