diff options
author | Richard M. Stallman <[email protected]> | 1993-09-07 10:41:05 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1993-09-07 10:41:05 +0000 |
commit | e3e87be8cd7844bce254db2840acee4e52bcbcbc (patch) | |
tree | 9531dd1ae55f7fb994e6e8ab9afa09dd3f5e1d60 /lisp/mail | |
parent | 8a988f456de1b6256781b8f831aa43eb2af32fef (diff) |
(rmail-convert-file): Exclude the Babyl header
when calling rmail-convert-to-babyl-format.
Diffstat (limited to 'lisp/mail')
-rw-r--r-- | lisp/mail/rmail.el | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index d55627ee0a..979975bafa 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -276,14 +276,19 @@ that file, but does not copy any new mail into the file." ;; Unix format messages added at the end, ;; convert file as necessary. (if (or convert - (progn (goto-char (point-max)) - (search-backward "\^_") - (forward-char 1) - (looking-at "\n*From "))) + (save-excursion + (goto-char (point-max)) + (search-backward "\^_") + (forward-char 1) + (looking-at "\n*From "))) (let ((buffer-read-only nil)) (message "Converting to Babyl format...") -;;; If file needs conversion, convert it all. + ;; If file needs conversion, convert it all, + ;; except for the BABYL header. + ;; (rmail-convert-to-babyl-format would delete the header.) ;;; (narrow-to-region (point) (point-max)) + (goto-char (point-min)) + (search-forward "\n\^_" nil t) (rmail-convert-to-babyl-format) (message "Converting to Babyl format...done"))))) |