From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 14 Jan 2017 08:55:16 +0000 (+0200)
Subject: Include "Date:" in mail messages filed by 'sendmail-send-it'
X-Git-Tag: emacs-26.0.90~890
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=877c525f4b98bc785f1bb0b50d70f72d09c80eb2;p=emacs.git

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)
---

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))