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

* mail/rmailout.el (rmail-convert-to-babyl-format): Don't set "unseen".

parent 9aadce25
2009-04-09 Richard M Stallman <rms@gnu.org> 2009-04-09 Richard M Stallman <rms@gnu.org>
* mail/rmailout.el (rmail-convert-to-babyl-format): Don't set "unseen".
* mail/rmailout.el (rmail-output-to-rmail-buffer): * mail/rmailout.el (rmail-output-to-rmail-buffer):
Call rmail-modify-format.. Call rmail-modify-format.
Don't query before visiting a Babyl file. Don't query before visiting a Babyl file.
Instead, query before modifications that would save it. Instead, query before modifications that would save it.
......
...@@ -169,7 +169,7 @@ display message number MSG." ...@@ -169,7 +169,7 @@ display message number MSG."
(save-restriction (save-restriction
(unless (looking-at "^From ") (unless (looking-at "^From ")
(error "Invalid mbox message")) (error "Invalid mbox message"))
(insert "\^L\n0, unseen,,\n*** EOOH ***\n") (insert "\^L\n0,,\n*** EOOH ***\n")
(rmail-nuke-pinhead-header) (rmail-nuke-pinhead-header)
;; Decode base64 or quoted printable contents, Rmail style. ;; Decode base64 or quoted printable contents, Rmail style.
(let* ((header-end (save-excursion (let* ((header-end (save-excursion
......
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