From e3e87be8cd7844bce254db2840acee4e52bcbcbc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 7 Sep 1993 10:41:05 +0000 Subject: [PATCH] (rmail-convert-file): Exclude the Babyl header when calling rmail-convert-to-babyl-format. --- lisp/mail/rmail.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index d55627ee0a6..979975bafa0 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"))))) -- 2.39.5