[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 877c525: Include "Date:" in mail messages filed by
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] master 877c525: Include "Date:" in mail messages filed by 'sendmail-send-it' |
Date: |
Sat, 14 Jan 2017 08:56:07 +0000 (UTC) |
branch: master
commit 877c525f4b98bc785f1bb0b50d70f72d09c80eb2
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>
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)
---
lisp/mail/sendmail.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 690825b..70c8ea1 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 877c525: Include "Date:" in mail messages filed by 'sendmail-send-it',
Eli Zaretskii <=