# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 708295237 0
# Node ID 9d04c281a9bdceb4da269d2f026ef1598c09ed94
# Parent  16823e891d562d536c3b6361899c467ccb514e70
*** empty log message ***

diff -r 16823e891d56 -r 9d04c281a9bd lisp/mail/rmailout.el
--- a/lisp/mail/rmailout.el	Thu Jun 11 02:31:08 1992 +0000
+++ b/lisp/mail/rmailout.el	Thu Jun 11 20:40:37 1992 +0000
@@ -165,7 +165,7 @@
 					     (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.)