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

(Bug#2175)

lisp/ChangeLog

@@ -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

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")))