[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/03/02 07:24:00

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : rmail.el 

Log message:
        (rmail-dont-reply-to-names, rmail-default-dont-reply-to-names): Doc 
fixes.
        (rmail-reply): Avoid extraneous leading whitespace.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15418&r2=1.15419
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.517&r2=1.518

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15418
retrieving revision 1.15419
diff -u -b -r1.15418 -r1.15419
--- ChangeLog   2 Mar 2009 07:00:43 -0000       1.15418
+++ ChangeLog   2 Mar 2009 07:23:57 -0000       1.15419
@@ -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  <address@hidden>
 

Index: mail/rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.517
retrieving revision 1.518
diff -u -b -r1.517 -r1.518
--- mail/rmail.el       2 Mar 2009 02:19:30 -0000       1.517
+++ mail/rmail.el       2 Mar 2009 07:23:59 -0000       1.518
@@ -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.