[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail unrmail.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] emacs/lisp/mail unrmail.el |
Date: |
Fri, 30 Jan 2009 18:30:52 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Eli Zaretskii <eliz> 09/01/30 18:30:52
Modified files:
lisp/mail : unrmail.el
Log message:
(unrmail): Fix conversion of BABYL attributes into Rmail-mbox
attributes.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/unrmail.el?cvsroot=emacs&r1=1.28&r2=1.29
Patches:
Index: unrmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/unrmail.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- unrmail.el 27 Jan 2009 22:38:58 -0000 1.28
+++ unrmail.el 30 Jan 2009 18:30:52 -0000 1.29
@@ -145,9 +145,10 @@
(if (string-match ", deleted," label-line) ?D ?-)
(if (string-match ", edited," label-line) ?E ?-)
(if (string-match ", filed," label-line) ?F ?-)
- (if (string-match ", resent," label-line) ?R ?-)
- (if (string-match ", unseen," label-line) ?\ ?-)
- (if (string-match ", stored," label-line) ?S ?-)))
+ (if (string-match ", retried," label-line) ?R ?-)
+ (if (string-match ", forwarded," label-line) ?S ?-)
+ (if (string-match ", unseen," label-line) ?U ?-)
+ (if (string-match ", resent," label-line) ?r ?-)))
;; Delete the special Babyl lines at the start,
;; and the ***EOOH*** line, and the reformatted header if any.