Commit 58400e4f authored by Glenn Morris's avatar Glenn Morris
Browse files

(unrmail): In the absence of Mail-from, prefer Date over current-time.

(Bug#2175)
parent e18cc61c
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
......
......@@ -184,11 +184,21 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
(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")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment