# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1239295562 0
# Node ID 45cc1409f5e285837ab6834dd21853b6ec46e897
# Parent  e25ee95fb5b087a9bc35b44695c6d819c00ec4e0
* mail/rmailout.el (rmail-convert-to-babyl-format): Don't set "unseen".

diff -r e25ee95fb5b0 -r 45cc1409f5e2 lisp/ChangeLog
--- 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.
diff -r e25ee95fb5b0 -r 45cc1409f5e2 lisp/mail/rmailout.el
--- 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