From a880e5b938c2ac38eb81ec1f24db1c68c6ffa2cb Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 30 Jan 2009 18:31:35 +0000 Subject: [PATCH] (unrmail): Fix conversion of BABYL attributes into Rmail-mbox attributes. --- lisp/ChangeLog | 4 ++++ lisp/mail/unrmail.el | 7 ++++--- 2 files changed, 8 insertions(+), 3 deletions(-) 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 + * 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 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. -- 2.39.2