bug#40151: 28.0.50; Remove Date header from message-draft-headers

[Eric Abrahamsen <eric@ericabrahamsen.net>]

[-- Attachment #1: Type: text/plain, Size: 310 bytes --]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> Eric Abrahamsen <eric@ericabrahamsen.net> writes:
>
>> You mean in the `gnus-delay-article' docstring? I didn't see anything
>> apropos of "postpone".
>
> No, but it should perhaps say something.  Or at least point to
> message-draft-headers...

How's this look?


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Remove-the-Date-header-from-message-draft-headers.patch --]
[-- Type: text/x-patch, Size: 1822 bytes --]

From 951338269aa6b866b06ab59a2f10cb09f41f390a Mon Sep 17 00:00:00 2001
From: Eric Abrahamsen <eric@ericabrahamsen.net>
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 8dae4ef5c1..589ec6f807 100644
--- a/lisp/gnus/gnus-delay.el
+++ b/lisp/gnus/gnus-delay.el
@@ -75,7 +75,11 @@ gnus-delay-article
   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
+generate when the article is delayed.  Remaining headers are
+generate 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 f1ace0eeb2..eb9c79d66c 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -215,9 +215,9 @@ message-required-headers
   :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.25.2