Mercurial > emacs
changeset 101770:dab601ced3e6
(unrmail): In the absence of Mail-from, prefer Date over current-time.
(Bug#2175)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 03 Feb 2009 08:09:03 +0000 |
| parents | fcd47e055a66 |
| children | 60634423f085 |
| files | lisp/ChangeLog lisp/mail/unrmail.el |
| diffstat | 2 files changed, 18 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Feb 03 04:13:17 2009 +0000 +++ b/lisp/ChangeLog Tue Feb 03 08:09:03 2009 +0000 @@ -1,5 +1,8 @@ 2009-02-03 Glenn Morris <rgm@gnu.org> + * mail/unrmail.el (unrmail): In the absence of Mail-from, prefer Date + over current-time. (Bug#2175) + * mail/rmail.el (rmail-convert-babyl-to-mbox): Disable undo while inserting the converted mailbox. (rmail-get-new-mail): Restore the loop over inboxes when two or more
--- a/lisp/mail/unrmail.el Tue Feb 03 04:13:17 2009 +0000 +++ b/lisp/mail/unrmail.el Tue Feb 03 08:09:03 2009 +0000 @@ -184,11 +184,21 @@ (setq mail-from (or (mail-fetch-field "Mail-From") (concat "From " - (mail-strip-quoted-names (or (mail-fetch-field "from") - (mail-fetch-field "really-from") - (mail-fetch-field "sender") - "unknown")) - " " (current-time-string)))) + (mail-strip-quoted-names + (or (mail-fetch-field "from") + (mail-fetch-field "really-from") + (mail-fetch-field "sender") + "unknown")) + " " + (let ((date (mail-fetch-field "date"))) + (or + (and date + (setq date + (ignore-errors + (format-time-string + "%a %b %e %T %Y" + (date-to-time date))))) + (current-time-string)))))) ;; If the message specifies a coding system, use it. (let ((maybe-coding (mail-fetch-field "X-Coding-System")))