Mercurial > emacs
diff lisp/gnus/message.el @ 107157:6a11e3b311d8
Change a custom default to ease the mail->message transition.
* message.el (message-default-mail-headers): Change the default value
to ease the transition from mail-mode to message-mode. (Bug#5555)
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Mon, 15 Feb 2010 18:48:08 -0800 |
parents | 2bef3a4193f8 |
children | a41886cf3890 |
line wrap: on
line diff
--- a/lisp/gnus/message.el Mon Feb 15 18:44:29 2010 -0800 +++ b/lisp/gnus/message.el Mon Feb 15 18:48:08 2010 -0800 @@ -1178,8 +1178,22 @@ :link '(custom-manual "(message)Message Headers") :type 'message-header-lines) -(defcustom message-default-mail-headers "" +(defcustom message-default-mail-headers + ;; 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) + "") + (if (and (boundp 'mail-self-blind) + mail-self-blind) + (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) + "")) "*A string of header lines to be inserted in outgoing mails." + :version "23.2" :group 'message-headers :group 'message-mail :link '(custom-manual "(message)Mail Headers") @@ -2768,7 +2782,7 @@ ;;; Forbidden properties ;; ;; We use `after-change-functions' to keep special text properties -;; that interfer with the normal function of message mode out of the +;; that interfere with the normal function of message mode out of the ;; buffer. (defcustom message-strip-special-text-properties t