mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

Fix mail-default-headers handling in Message mode.

Browse Source 
* gnus/message.el (message-default-mail-headers):
(message-default-headers): Carry the value mail-default-headers over
into message-default-mail-headers, rather than message-default-headers.
This commit is contained in:
Chong Yidong 2010-03-27 13:53:35 -04:00
parent 5660c0f5b8
commit 481134fd24
2 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View File

@ -1,3 +1,9 @@
2010-03-27 Chong Yidong <cyd@stupidchicken.com>
* message.el (message-default-mail-headers):
(message-default-headers): Carry the value mail-default-headers over
into message-default-mail-headers, rather than message-default-headers.
2010-03-22 Juanma Barranquero <lekktu@gmail.com>
* message.el (message-interactive): Doc fix.

20
lisp/gnus/message.el
View File

@ -1170,11 +1170,7 @@ It is a vector of the following headers:
:valid-regexp "^\\'"
:error "All header lines must be newline terminated")
(defcustom message-default-headers
;; Default to the value of `mail-default-headers' if available.
;; Note: as for Emacs 21, XEmacs 21.4 and 21.5, it is unavailable
;; unless sendmail.el is loaded.
(if (boundp 'mail-default-headers) mail-default-headers "")
(defcustom message-default-headers ""
"*A string containing header lines to be inserted in outgoing messages.
It is inserted before you edit the message, so you can edit or delete
these lines."
@ -1187,16 +1183,18 @@ these lines."
;; Ease the transition from mail-mode to message-mode. See bugs#4431, 5555.
(concat (if (and (boundp 'mail-default-reply-to)
(stringp mail-default-reply-to))
(format "Reply-to: %s\n" mail-default-reply-to)
"")
(format "Reply-to: %s\n" mail-default-reply-to))
(if (and (boundp 'mail-self-blind)
mail-self-blind)
(format "BCC: %s\n" user-mail-address)
"")
(format "BCC: %s\n" user-mail-address))
(if (and (boundp 'mail-archive-file-name)
(stringp mail-archive-file-name))
(format "FCC: %s\n" mail-archive-file-name)
""))
(format "FCC: %s\n" mail-archive-file-name))
;; Use the value of `mail-default-headers' if available.
;; Note: as for Emacs 21, XEmacs 21.4 and 21.5, it is
;; unavailable unless sendmail.el is loaded.
(if (boundp 'mail-default-headers)
mail-default-headers))
"*A string of header lines to be inserted in outgoing mails."
:version "23.2"
:group 'message-headers