# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1235978637 0
# Node ID 5d529b1750d22a262b27ccb2fc4aee0cabdbf0f2
# Parent  3206ad427d3c3addab094a72ed07b1107285f08e
(rmail-dont-reply-to-names, rmail-default-dont-reply-to-names): Doc fixes.
(rmail-reply): Avoid extraneous leading whitespace.

diff -r 3206ad427d3c -r 5d529b1750d2 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Mar 02 07:00:43 2009 +0000
+++ b/lisp/ChangeLog	Mon Mar 02 07:23:57 2009 +0000
@@ -5,6 +5,9 @@
 
 	* mail/rmail.el (rmail-reply): Use rmail-apply-in-message so that this
 	function has access to all the headers, not just the visible ones.
+	(rmail-dont-reply-to-names, rmail-default-dont-reply-to-names):
+	Doc fixes.
+	(rmail-reply): Avoid extraneous leading whitespace.
 
 2009-03-01  Chong Yidong  <cyd@stupidchicken.com>
 
diff -r 3206ad427d3c -r 5d529b1750d2 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Mon Mar 02 07:00:43 2009 +0000
+++ b/lisp/mail/rmail.el	Mon Mar 02 07:23:57 2009 +0000
@@ -298,18 +298,24 @@
 ;;;###autoload
 (defcustom rmail-dont-reply-to-names nil
   "A regexp specifying addresses to prune from a reply message.
-A value of nil means exclude your own email address as an address
-plus whatever is specified by `rmail-default-dont-reply-to-names'."
+If this is nil, it is set the first time you compose a reply, to
+a value which excludes your own email address, plus whatever is
+specified by `rmail-default-dont-reply-to-names'.
+
+Matching addresses are excluded from the CC field in replies, and
+also the To field, unless this would leave an empty To field."
   :type '(choice regexp (const :tag "Your Name" nil))
   :group 'rmail-reply)
 
 ;;;###autoload
 (defvar rmail-default-dont-reply-to-names "\\`info-"
-  "A regular expression specifying part of the default value of the
-variable `rmail-dont-reply-to-names', for when the user does not set
-`rmail-dont-reply-to-names' explicitly.  (The other part of the default
-value is the user's email address and name.)
-It is useful to set this variable in the site customization file.")
+  "Regexp specifying part of the default value of `rmail-dont-reply-to-names'.
+This is used when the user does not set `rmail-dont-reply-to-names'
+explicitly.  (The other part of the default value is the user's
+email address and name.)  It is useful to set this variable in
+the site customization file.  The default value is conventionally
+used for large mailing lists to broadcast announcements.")
+;; Is it really useful to set this site-wide?
 
 ;;;###autoload
 (defcustom rmail-ignored-headers
@@ -3378,8 +3384,10 @@
 		   (aref rmail-msgref-vector msgnum))
 		 rmail-answered-attr-index))
      nil
-     (list (cons "References" (concat (mapconcat 'identity references " ")
-				      " " message-id))))))
+     (list (cons "References" (if references
+				  (concat (mapconcat 'identity references " ")
+					  " " message-id)
+				message-id))))))
 
 (defun rmail-mark-message (buffer msgnum-list attribute)
   "Give BUFFER's message number in MSGNUM-LIST the attribute ATTRIBUTE.