[gnus git] branch master updated: n0-17-139-gb7adceb =1= * message.el (message-get-reply-headers): Delete all duplicates, instead of the first.

       via  b7adceb0dacc7ee4c6012e1b4e20d366969838f6 (commit)
      from  1a7b78d03dab7afbbad83c007e064e77322f8464 (commit)


- Log -----------------------------------------------------------------
commit b7adceb0dacc7ee4c6012e1b4e20d366969838f6
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sat Jul 2 22:52:31 2011 +0200

    * message.el (message-get-reply-headers): Delete all duplicates, instead of the first.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2628a3b..9bd709f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-07-02  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* message.el (message-get-reply-headers): Delete all duplicates,
+	instead of the first.
+
 	* gnus-msg.el (gnus-configure-posting-styles): Get the local
 	gnus-posting-style value from the summary buffer to make it easier to
 	make that a per-buffer conf.
diff --git a/lisp/message.el b/lisp/message.el
index 0a45376..f6e8fbe 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6793,10 +6793,12 @@ want to get rid of this query permanently.")))
 				  addr))
 		 (cons (downcase (mail-strip-quoted-names addr)) addr)))
 	     (message-tokenize-header recipients)))
-      ;; Remove first duplicates.  (Why not all duplicates?  Is this a bug?)
+      ;; Remove all duplicates.
       (let ((s recipients))
 	(while s
-	  (setq recipients (delq (assoc (car (pop s)) s) recipients))))
+	  (let ((address (car (pop s))))
+	    (while (assoc address s)
+	      (setq recipients (delq (assoc address s) recipients))))))
 
       ;; Remove hierarchical lists that are contained within each other,
       ;; if message-hierarchical-addresses is defined.

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    3 +++
 lisp/message.el |    6 ++++--
 2 files changed, 7 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project