(rmail-resend): Use RFC 822 style date in Resent-Date: line.

This commit is contained in:
Richard M. Stallman 1993-07-07 17:54:20 +00:00
parent 50aa2f9032
commit bcf120251a

View file

@ -1839,7 +1839,7 @@ typically for purposes of moderating a list."
(goto-char (point-min))
;;>> Insert resent-from:
(insert "Resent-From: " from "\n")
(insert "Resent-Date: " (current-time-string) "\n")
(insert "Resent-Date: " (mail-rfc822-date) "\n")
;;>> Insert resent-to: and bcc if need be.
(let ((before (point)))
(insert "Resent-To: " (if (stringp address)