emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 7725fbc: Remove the Date header from message-draft-headers


From: Eric Abrahamsen
Subject: master 7725fbc: Remove the Date header from message-draft-headers
Date: Fri, 20 Mar 2020 14:40:15 -0400 (EDT)

branch: master
commit 7725fbc5b1537eb04f3a05458cb597e4842475f1
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Remove the Date header from message-draft-headers
    
    * lisp/gnus/message.el (message-draft-headers): The Date header should
    reflect when the message is sent, not when it was saved or delayed.
---
 lisp/gnus/gnus-delay.el | 6 +++++-
 lisp/gnus/message.el    | 4 ++--
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/lisp/gnus/gnus-delay.el b/lisp/gnus/gnus-delay.el
index 8dae4ef..63e938e 100644
--- a/lisp/gnus/gnus-delay.el
+++ b/lisp/gnus/gnus-delay.el
@@ -75,7 +75,11 @@ DELAY is a string, giving the length of the time.  Possible 
values are:
   variable `gnus-delay-default-hour', minute and second are zero.
 
 * hh:mm for a specific time.  Use 24h format.  If it is later than this
-  time, then the deadline is tomorrow, else today."
+  time, then the deadline is tomorrow, else today.
+
+The value of `message-draft-headers' determines which headers are
+generated when the article is delayed.  Remaining headers are
+generated when the article is sent."
   (interactive
    (list (read-string
          "Target date (YYYY-MM-DD), time (hh:mm), or length of delay (units in 
[mhdwMY]): "
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index f1ace0e..eb9c79d 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -215,9 +215,9 @@ Also see `message-required-news-headers' and
   :link '(custom-manual "(message)Message Headers")
   :type '(repeat sexp))
 
-(defcustom message-draft-headers '(References From Date)
+(defcustom message-draft-headers '(References From)
   "Headers to be generated when saving a draft message."
-  :version "22.1"
+  :version "28.1"
   :group 'message-news
   :group 'message-headers
   :link '(custom-manual "(message)Message Headers")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]