aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2009-04-09 16:46:02 +0000
committerRichard M. Stallman2009-04-09 16:46:02 +0000
commitf824857fc589ea08b77f2876ec7d548439e5c4c0 (patch)
tree08d6d7e6b69fb4e58d4a995fd6eafdf1aa3f20b9
parent9aadce2568555d286f03a5b8863e29bf84002e7e (diff)
downloademacs-f824857fc589ea08b77f2876ec7d548439e5c4c0.tar.gz
emacs-f824857fc589ea08b77f2876ec7d548439e5c4c0.zip
* mail/rmailout.el (rmail-convert-to-babyl-format): Don't set "unseen".
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/mail/rmailout.el2
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 @@
12009-04-09 Richard M Stallman <rms@gnu.org> 12009-04-09 Richard M Stallman <rms@gnu.org>
2 2
3 * mail/rmailout.el (rmail-convert-to-babyl-format): Don't set "unseen".
4
3 * mail/rmailout.el (rmail-output-to-rmail-buffer): 5 * mail/rmailout.el (rmail-output-to-rmail-buffer):
4 Call rmail-modify-format.. 6 Call rmail-modify-format.
5 7
6 Don't query before visiting a Babyl file. 8 Don't query before visiting a Babyl file.
7 Instead, query before modifications that would save it. 9 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."
169 (save-restriction 169 (save-restriction
170 (unless (looking-at "^From ") 170 (unless (looking-at "^From ")
171 (error "Invalid mbox message")) 171 (error "Invalid mbox message"))
172 (insert "\^L\n0, unseen,,\n*** EOOH ***\n") 172 (insert "\^L\n0,,\n*** EOOH ***\n")
173 (rmail-nuke-pinhead-header) 173 (rmail-nuke-pinhead-header)
174 ;; Decode base64 or quoted printable contents, Rmail style. 174 ;; Decode base64 or quoted printable contents, Rmail style.
175 (let* ((header-end (save-excursion 175 (let* ((header-end (save-excursion