diff options
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. |