diff options
| author | Eli Zaretskii | 2009-01-30 18:31:35 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2009-01-30 18:31:35 +0000 |
| commit | a880e5b938c2ac38eb81ec1f24db1c68c6ffa2cb (patch) | |
| tree | 02a79e67db18c60d20f52ed2fc60470b7fea3b75 /lisp/mail | |
| parent | 2f6e377467f1bfa188f59c14f621ec9656579f29 (diff) | |
| download | emacs-a880e5b938c2ac38eb81ec1f24db1c68c6ffa2cb.tar.gz emacs-a880e5b938c2ac38eb81ec1f24db1c68c6ffa2cb.zip | |
(unrmail): Fix conversion of BABYL attributes into Rmail-mbox attributes.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/unrmail.el | 7 |
1 files changed, 4 insertions, 3 deletions
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'." | |||
| 145 | (if (string-match ", deleted," label-line) ?D ?-) | 145 | (if (string-match ", deleted," label-line) ?D ?-) |
| 146 | (if (string-match ", edited," label-line) ?E ?-) | 146 | (if (string-match ", edited," label-line) ?E ?-) |
| 147 | (if (string-match ", filed," label-line) ?F ?-) | 147 | (if (string-match ", filed," label-line) ?F ?-) |
| 148 | (if (string-match ", resent," label-line) ?R ?-) | 148 | (if (string-match ", retried," label-line) ?R ?-) |
| 149 | (if (string-match ", unseen," label-line) ?\ ?-) | 149 | (if (string-match ", forwarded," label-line) ?S ?-) |
| 150 | (if (string-match ", stored," label-line) ?S ?-))) | 150 | (if (string-match ", unseen," label-line) ?U ?-) |
| 151 | (if (string-match ", resent," label-line) ?r ?-))) | ||
| 151 | 152 | ||
| 152 | ;; Delete the special Babyl lines at the start, | 153 | ;; Delete the special Babyl lines at the start, |
| 153 | ;; and the ***EOOH*** line, and the reformatted header if any. | 154 | ;; and the ***EOOH*** line, and the reformatted header if any. |