diff options
author | Eli Zaretskii <eliz@gnu.org> | 2017-01-14 10:55:16 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2017-01-14 10:55:16 +0200 |
commit | 877c525f4b98bc785f1bb0b50d70f72d09c80eb2 (patch) | |
tree | d6dc298fdd16d4b6974cf4d983bfe343656c054d | |
parent | 5b9f08fb867a9a3dca0bc81064202d53d1d52538 (diff) | |
download | emacs-877c525f4b98bc785f1bb0b50d70f72d09c80eb2.tar.gz |
Include "Date:" in mail messages filed by 'sendmail-send-it'
* lisp/mail/sendmail.el (mail-do-fcc): Insert a 'Date:' header
into the filed message. In the outgoing message, sendmail will
add the date, but the composed message body doesn't have it.
(Bug#25436)
-rw-r--r-- | lisp/mail/sendmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 690825bf1e5..70c8ea1f937 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -28,8 +28,8 @@ ;;; Code: (require 'mail-utils) - (require 'rfc2047) +(autoload 'message-make-date "message") (defgroup sendmail nil "Mail sending commands for Emacs." @@ -1409,6 +1409,7 @@ just append to the file, in Babyl format if necessary." (require 'mail-utils) (insert (mail-rfc822-time-zone time) " ") (goto-char (point-max)) + (insert "Date: " (message-make-date) "\n") (insert-buffer-substring mailbuf) ;; Make sure messages are separated. (goto-char (point-max)) |