From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 7 Sep 1993 10:41:05 +0000 (+0000)
Subject: (rmail-convert-file): Exclude the Babyl header
X-Git-Tag: emacs-19.34~11178
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e3e87be8cd7844bce254db2840acee4e52bcbcbc;p=emacs.git

(rmail-convert-file): Exclude the Babyl header
when calling rmail-convert-to-babyl-format.
---

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")))))