*** empty log message ***

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 5606eccbe879d37e45e5404428b5d3be868a41e4..00dca6186a83bbe9697bd0fde2230642d0bc7fd1 100644 (file)
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -165,7 +165,7 @@ starting with the current one.  Deleted messages are skipped and don't count."
                                             (mail-fetch-field "really-from")
                                             (mail-fetch-field "sender")
                                             "unknown"))
-               " " (current-time-string) "\n")
+               " " (or (mail-fetch-field "date") (current-time-string)) "\n")
        ;; ``Quote'' "\nFrom " as "\n>From "
        ;;  (note that this isn't really quoting, as there is no requirement
        ;;   that "\n[>]+From " be quoted in the same transparent way.)