Mercurial > emacs
changeset 102912:45cc1409f5e2
* mail/rmailout.el (rmail-convert-to-babyl-format): Don't set "unseen".
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 09 Apr 2009 16:46:02 +0000 |
parents | e25ee95fb5b0 |
children | 497d7a904c67 |
files | lisp/ChangeLog lisp/mail/rmailout.el |
diffstat | 2 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Apr 09 16:43:51 2009 +0000 +++ b/lisp/ChangeLog Thu Apr 09 16:46:02 2009 +0000 @@ -1,7 +1,9 @@ 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): - Call rmail-modify-format.. + Call rmail-modify-format. Don't query before visiting a Babyl file. Instead, query before modifications that would save it.
--- a/lisp/mail/rmailout.el Thu Apr 09 16:43:51 2009 +0000 +++ b/lisp/mail/rmailout.el Thu Apr 09 16:46:02 2009 +0000 @@ -169,7 +169,7 @@ (save-restriction (unless (looking-at "^From ") (error "Invalid mbox message")) - (insert "\^L\n0, unseen,,\n*** EOOH ***\n") + (insert "\^L\n0,,\n*** EOOH ***\n") (rmail-nuke-pinhead-header) ;; Decode base64 or quoted printable contents, Rmail style. (let* ((header-end (save-excursion