[gnus git] branch master updated: n0-17-140-gf401d34 =1= (message-get-reply-headers): Ensure that we have progress while deleting duplicates.
Lars Magne Ingebrigtsen <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via f401d3435485c06b6f83db49f76b04fc834e926d (commit)
from b7adceb0dacc7ee4c6012e1b4e20d366969838f6 (commit)
- Log -----------------------------------------------------------------
commit f401d3435485c06b6f83db49f76b04fc834e926d
Author: Lars Magne Ingebrigtsen <[email protected]>
Date: Sat Jul 2 23:01:56 2011 +0200
(message-get-reply-headers): Ensure that we have progress while deleting duplicates.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9bd709f..5a67e43 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
* message.el (message-get-reply-headers): Delete all duplicates,
instead of the first.
+ (message-get-reply-headers): Ensure that we have progress while
+ deleting duplicates.
* gnus-msg.el (gnus-configure-posting-styles): Get the local
gnus-posting-style value from the summary buffer to make it easier to
diff --git a/lisp/message.el b/lisp/message.el
index f6e8fbe..64300e8 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6798,7 +6798,8 @@ want to get rid of this query permanently.")))
(while s
(let ((address (car (pop s))))
(while (assoc address s)
- (setq recipients (delq (assoc address s) recipients))))))
+ (setq recipients (delq (assoc address s) recipients)
+ s (delq (assoc address s) s))))))
;; 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 | 2 ++
lisp/message.el | 3 ++-
2 files changed, 4 insertions(+), 1 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