Mercurial > emacs

comparison lisp/mail/rmail.el @ 4673:047e8f8469d9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-convert-file): Exclude the Babyl header when calling rmail-convert-to-babyl-format.
author Richard M. Stallman <rms@gnu.org>
date Tue, 07 Sep 1993 10:41:05 +0000
parents 131a3edbd49f
children 196fac1c1086
comparison
equal deleted inserted replaced
4672:8996606e0a12 4673:047e8f8469d9
274 (rmail-insert-rmail-file-header))) 274 (rmail-insert-rmail-file-header)))
275 ;; If file was not a Babyl file or if there are 275 ;; If file was not a Babyl file or if there are
276 ;; Unix format messages added at the end, 276 ;; Unix format messages added at the end,
277 ;; convert file as necessary. 277 ;; convert file as necessary.
278 (if (or convert 278 (if (or convert
279 (progn (goto-char (point-max)) 279 (save-excursion
280 (search-backward "\^_") 280 (goto-char (point-max))
281 (forward-char 1) 281 (search-backward "\^_")
282 (looking-at "\n*From "))) 282 (forward-char 1)
283 (looking-at "\n*From ")))
283 (let ((buffer-read-only nil)) 284 (let ((buffer-read-only nil))
284 (message "Converting to Babyl format...") 285 (message "Converting to Babyl format...")
285 ;;; If file needs conversion, convert it all. 286 ;; If file needs conversion, convert it all,
287 ;; except for the BABYL header.
288 ;; (rmail-convert-to-babyl-format would delete the header.)
286 ;;; (narrow-to-region (point) (point-max)) 289 ;;; (narrow-to-region (point) (point-max))
290 (goto-char (point-min))
291 (search-forward "\n\^_" nil t)
287 (rmail-convert-to-babyl-format) 292 (rmail-convert-to-babyl-format)
288 (message "Converting to Babyl format...done"))))) 293 (message "Converting to Babyl format...done")))))
289 294
290 ; I have checked that adding "-*- rmail -*-" to the BABYL OPTIONS line 295 ; I have checked that adding "-*- rmail -*-" to the BABYL OPTIONS line
291 ; will not cause emacs 18.55 problems. 296 ; will not cause emacs 18.55 problems.