Commit de62d9e9 authored by Richard M. Stallman's avatar Richard M. Stallman

* mail/rmailout.el (rmail-output): If file is visited,

check the buffer's format.
parent f824857f
2009-04-09 Richard M Stallman <rms@gnu.org>
* mail/rmailout.el (rmail-output): If file is visited,
check the buffer's format.
* mail/rmailout.el (rmail-convert-to-babyl-format): Don't set "unseen".
* mail/rmailout.el (rmail-output-to-rmail-buffer):
......
......@@ -434,7 +434,20 @@ from a non-Rmail buffer. In this case, COUNT is ignored."
(if noattribute (setq noattribute 'nomsg))
(let ((babyl-format (and (file-readable-p file-name)
(mail-file-babyl-p file-name)))
(cur (current-buffer)))
(cur (current-buffer))
(buf (find-buffer-visiting file-name)))
;; If a babyl file is visited in a buffer, is it visited as babyl
;; or as mbox?
(and babyl-format buf
(with-current-buffer buf
(save-restriction
(widen)
(save-excursion
(goto-char (point-min))
(setq babyl-format
(looking-at "BABYL OPTIONS:"))))))
(if not-rmail ; eg via message-fcc-handler-function
(with-temp-buffer
(insert-buffer-substring cur)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment