Changes committed gnus/lisp (ChangeLog message.el)

Modified: ChangeLog message.el

2010-02-16  Glenn Morris  <[email protected]>

	* message.el (message-default-mail-headers): Change the default value
	to ease the transition from mail-mode to message-mode.  (Bug#5555)


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2056 gnus/lisp/ChangeLog:7.2057
--- ChangeLog:7.2056	Tue Jan 19 05:05:20 2010
+++ ChangeLog	Tue Feb 16 05:33:25 2010
@@ -1,3 +1,8 @@
+2010-02-16  Glenn Morris  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* parse-time.el (parse-time-syntax): Define it for only XEmacs.
Index: message.el
diff -u gnus/lisp/message.el:7.289 gnus/lisp/message.el:7.290
--- message.el:7.289	Mon Jan 18 05:59:52 2010
+++ message.el	Tue Feb 16 05:33:25 2010
@@ -1140,8 +1140,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")
@@ -2730,7 +2744,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