diff options
author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2020-03-20 10:53:49 -0700 |
---|---|---|
committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2020-03-20 11:39:44 -0700 |
commit | 7725fbc5b1537eb04f3a05458cb597e4842475f1 (patch) | |
tree | 1712f3a0289fd5ccaf864502c5f6637eebb17238 | |
parent | 0128375a50352720c626fd915312a5c38762d09a (diff) | |
download | emacs-7725fbc5b1537eb04f3a05458cb597e4842475f1.tar.gz |
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.
-rw-r--r-- | lisp/gnus/gnus-delay.el | 6 | ||||
-rw-r--r-- | 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") |