diff options
author | Eli Zaretskii <eliz@gnu.org> | 2009-01-30 18:31:35 +0000 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2009-01-30 18:31:35 +0000 |
commit | a880e5b938c2ac38eb81ec1f24db1c68c6ffa2cb (patch) | |
tree | 02a79e67db18c60d20f52ed2fc60470b7fea3b75 /lisp | |
parent | 2f6e377467f1bfa188f59c14f621ec9656579f29 (diff) | |
download | emacs-a880e5b938c2ac38eb81ec1f24db1c68c6ffa2cb.tar.gz |
(unrmail): Fix conversion of BABYL attributes into Rmail-mbox attributes.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | 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 <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. |