From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 11 Sep 1993 10:40:03 +0000 (+0000)
Subject: (rmail-convert-file): Narrow to exclude the Babyl header.
X-Git-Tag: emacs-19.34~11153
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=073fb95606c1d373cca9d528d27239aae9bc1bef;p=emacs.git

(rmail-convert-file): Narrow to exclude the Babyl header.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 979975bafa0..9ab9c86f11f 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -286,9 +286,9 @@ that file, but does not copy any new mail into the file."
 	  ;; 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)
+	  (narrow-to-region (point) (point-max))
 	  (rmail-convert-to-babyl-format)
 	  (message "Converting to Babyl format...done")))))