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

(Bug#2175)

1 files changed, 15 insertions, 5 deletions

diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index 9d1717368bd..8fb15f1813c 100644
--- a/lisp/mail/unrmail.el
+++ b/lisp/mail/unrmail.el
@@ -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")))