From 2ba7cc1331afa29de3a313db91033903dbebfda6 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 16 Feb 2010 04:33:25 +0000 Subject: [PATCH] 2010-02-16 Glenn Morris * message.el (message-default-mail-headers): Change the default value to ease the transition from mail-mode to message-mode. (Bug#5555) --- lisp/ChangeLog | 5 +++++ lisp/message.el | 18 ++++++++++++++++-- 2 files changed, 21 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 583fbf66d..8a8c0af34 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-02-16 Glenn Morris + + * message.el (message-default-mail-headers): Change the default value + to ease the transition from mail-mode to message-mode. (Bug#5555) + 2010-01-19 Katsumi Yamaoka * parse-time.el (parse-time-syntax): Define it for only XEmacs. diff --git a/lisp/message.el b/lisp/message.el index df4f555da..f7bcb5693 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1140,8 +1140,22 @@ these lines." :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") @@ -2730,7 +2744,7 @@ PGG manual, depending on the value of `mml2015-use'." ;;; 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 -- 2.34.1