[Emacs-diffs] emacs/lisp ChangeLog mail/rmailout.el

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       09/04/09 16:46:05

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : rmailout.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15568&r2=1.15569
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailout.el?cvsroot=emacs&r1=1.99&r2=1.100

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15568
retrieving revision 1.15569
diff -u -b -r1.15568 -r1.15569
--- ChangeLog   9 Apr 2009 16:43:51 -0000       1.15568
+++ ChangeLog   9 Apr 2009 16:46:02 -0000       1.15569
@@ -1,7 +1,9 @@
 2009-04-09  Richard M Stallman  <address@hidden>
 
+       * 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.

Index: mail/rmailout.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/rmailout.el,v
retrieving revision 1.99
retrieving revision 1.100
diff -u -b -r1.99 -r1.100
--- mail/rmailout.el    9 Apr 2009 16:43:05 -0000       1.99
+++ mail/rmailout.el    9 Apr 2009 16:46:05 -0000       1.100
@@ -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