From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 30 Jan 2009 18:31:35 +0000 (+0000)
Subject: (unrmail): Fix conversion of BABYL attributes into Rmail-mbox attributes.
X-Git-Tag: emacs-pretest-23.0.90~49
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a880e5b938c2ac38eb81ec1f24db1c68c6ffa2cb;p=emacs.git

(unrmail): Fix conversion of BABYL attributes into Rmail-mbox attributes.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7438813949..a766db1f2fd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,12 @@
 2009-01-30  Eli Zaretskii  <eliz@gnu.org>
 
+	* mail/unrmail.el (unrmail): Fix conversion of BABYL attributes
+	into Rmail-mbox attributes.
+
 	* mail/rmail.el (rmail-convert-babyl-to-mbox): Bind
 	coding-system-for-read to `raw-text', and use insert-file-contents
 	instead of insert-file-contents-literally.  Fixes bug #2019.
+	(rmail-resent-attr-index): Fix index value.
 
 2009-01-30  Nick Roberts  <nickrob@snap.net.nz>
 
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index a6ec4bffc4d..95ff727f077 100644
--- a/lisp/mail/unrmail.el
+++ b/lisp/mail/unrmail.el
@@ -145,9 +145,10 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
 		   (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.