Mercurial > emacs
changeset 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 | b57368a8e3fd |
| children | b11a8bb7b8c8 93e81200b4dd 6e3f2cca063f |
| files | lisp/gnus/ChangeLog lisp/gnus/message.el |
| diffstat | 2 files changed, 21 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Mon Feb 15 18:44:29 2010 -0800 +++ b/lisp/gnus/ChangeLog Mon Feb 15 18:48:08 2010 -0800 @@ -1,3 +1,8 @@ +2010-02-16 Glenn Morris <rgm@gnu.org> + + * message.el (message-default-mail-headers): Change the default value + to ease the transition from mail-mode to message-mode. (Bug#5555) + 2010-01-17 Chong Yidong <cyd@stupidchicken.com> * message.el (message-mail): Just pass yank-action on to message-setup.
--- 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