From a5bad6734b82264cb6cdacfcadc472351e05744a Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 30 Dec 2002 18:15:25 +0000 Subject: [PATCH] (message-required-headers): New variable. --- lisp/ChangeLog | 4 ++++ lisp/message.el | 13 ++++++++++--- 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 88671220c..7f2f33fcc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-12-30 Lars Magne Ingebrigtsen + + * message.el (message-required-headers): New variable. + 2002-12-30 Teodor Zlatanov * dig.el (query-dig): new function diff --git a/lisp/message.el b/lisp/message.el index d1f341ae3..079783f10 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -192,10 +192,17 @@ Checks include `subject-cmsg', `multiple-headers', `sendsys', :group 'message-news :type '(repeat sexp)) ; Fixme: improve this +(defcustom message-required-headers '((optional . References)) + "*Headers to be generated or promted for when sending a message. +Also see `message-required-news-headers' and +1message-required-mail-headers'." + :group 'message-news + :group 'message-headers + :type '(repeat sexp)) + (defcustom message-required-news-headers '(From Newsgroups Subject Date Message-ID (optional . Organization) - (optional . References) (optional . User-Agent)) "*Headers to be generated or prompted for when posting an article. RFC977 and RFC1036 require From, Date, Newsgroups, Subject, @@ -208,8 +215,7 @@ header, remove it from this list." (defcustom message-required-mail-headers '(From Subject Date (optional . In-Reply-To) Message-ID - (optional . User-Agent) - (optional . References)) + (optional . User-Agent)) "*Headers to be generated or prompted for when mailing a message. It is recommended that From, Date, To, Subject and Message-ID be included. Organization and User-Agent are optional." @@ -4488,6 +4494,7 @@ not the additional To and Cc header contents)." (defun message-generate-headers (headers) "Prepare article HEADERS. Headers already prepared in the buffer are not modified." + (setq headers (append headers message-required-headers)) (save-restriction (message-narrow-to-headers) (let* ((Date (message-make-date)) -- 2.25.1