From 7725fbc5b1537eb04f3a05458cb597e4842475f1 Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Fri, 20 Mar 2020 10:53:49 -0700 Subject: [PATCH] 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 8dae4ef5c17..63e938e7453 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 f1ace0eeb2e..eb9c79d66c9 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") -- 2.39.2