From f824857fc589ea08b77f2876ec7d548439e5c4c0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 9 Apr 2009 16:46:02 +0000 Subject: [PATCH] * mail/rmailout.el (rmail-convert-to-babyl-format): Don't set "unseen". --- lisp/ChangeLog | 4 +++- lisp/mail/rmailout.el | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d59d7577f7f..a4050c3e5ea 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,9 @@ 2009-04-09 Richard M Stallman + * 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. diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index cb34ff4705a..b6f20df69a0 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -169,7 +169,7 @@ display message number MSG." (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 -- 2.39.5