mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-13 11:12:19 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-convert-file): Exclude the Babyl header

Browse source 
when calling rmail-convert-to-babyl-format.
This commit is contained in:
Richard M. Stallman 1993-09-07 10:41:05 +00:00
parent 8a988f456d
commit e3e87be8cd
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/mail/rmail.el
View file

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