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

This commit is contained in:
Richard M. Stallman 1993-09-11 10:40:03 +00:00
parent 66b8b1d5c3
commit 073fb95606

View file

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