(message-get-reply-headers): Ensure that we have progress while deleting duplicates.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9bd709f..5a67e43 100644 (file)
--- 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 (file)
--- 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.