diff options
| author | Richard M. Stallman | 1993-07-07 17:54:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-07 17:54:20 +0000 |
| commit | bcf120251a54088b06fa2e61c4f400ddb0b89dde (patch) | |
| tree | a2c2f83883490174513867420c62184dcdf0fc5e | |
| parent | 50aa2f903214029eabee4b5420eddd594394e111 (diff) | |
| download | emacs-bcf120251a54088b06fa2e61c4f400ddb0b89dde.tar.gz emacs-bcf120251a54088b06fa2e61c4f400ddb0b89dde.zip | |
(rmail-resend): Use RFC 822 style date in Resent-Date: line.
| -rw-r--r-- | lisp/mail/rmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 5bffa4ef60d..ad99396a45c 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -1839,7 +1839,7 @@ typically for purposes of moderating a list." | |||
| 1839 | (goto-char (point-min)) | 1839 | (goto-char (point-min)) |
| 1840 | ;;>> Insert resent-from: | 1840 | ;;>> Insert resent-from: |
| 1841 | (insert "Resent-From: " from "\n") | 1841 | (insert "Resent-From: " from "\n") |
| 1842 | (insert "Resent-Date: " (current-time-string) "\n") | 1842 | (insert "Resent-Date: " (mail-rfc822-date) "\n") |
| 1843 | ;;>> Insert resent-to: and bcc if need be. | 1843 | ;;>> Insert resent-to: and bcc if need be. |
| 1844 | (let ((before (point))) | 1844 | (let ((before (point))) |
| 1845 | (insert "Resent-To: " (if (stringp address) | 1845 | (insert "Resent-To: " (if (stringp address) |