From c9a81e054f6aa94770935bcf1fedc9a910eeac5d Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 2 Mar 2009 07:23:57 +0000 Subject: [PATCH] (rmail-dont-reply-to-names, rmail-default-dont-reply-to-names): Doc fixes. (rmail-reply): Avoid extraneous leading whitespace. --- lisp/ChangeLog | 3 +++ lisp/mail/rmail.el | 26 +++++++++++++++++--------- 2 files changed, 20 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d1f8d9d34ce..1225b820ad4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 101283f29d6..8006fcdadaf 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -298,18 +298,24 @@ Currently known variants are 'emacs and 'mailutils." ;;;###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 @@ use \\[mail-yank-original] to yank the original message into it." (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. -- 2.39.2