Mercurial > emacs
diff lisp/gnus/message.el @ 110111:5b9f64b04a04
Delete all trailing white space.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Thu, 02 Sep 2010 01:42:32 +0000 |
parents | 8d09094063d0 |
children | 53415017c4cc |
line wrap: on
line diff
--- a/lisp/gnus/message.el Thu Sep 02 01:33:31 2010 +0000 +++ b/lisp/gnus/message.el Thu Sep 02 01:42:32 2010 +0000 @@ -6687,7 +6687,7 @@ (setq recipients (delq recip recipients)))))))) (setq recipients (message-prune-recipients recipients)) - + ;; Build the header alist. Allow the user to be asked whether ;; or not to reply to all recipients in a wide reply. (setq follow-to (list (cons 'To (cdr (pop recipients))))) @@ -6704,7 +6704,7 @@ (defun message-prune-recipients (recipients) (dolist (rule message-prune-recipient-rules) (let ((match (car rule)) - dup-match + dup-match address) (dolist (recipient recipients) (setq address (car recipient))