(gnus-registry-split-fancy-with-parent): Eliminate

unnecessary duplicates from the match list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6ecc7d9..ee20ece 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-17  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-registry.el (gnus-registry-split-fancy-with-parent): Eliminate
+       unnecessary duplicates from the match list.
+
 2008-03-17  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * dgnushack.el: Autoload Info-index and Info-index-next for XEmacs.

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 5141a5e..7cdb075 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -520,7 +520,9 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
               matches)
           (when (and this-sender
                      (equal sender this-sender))
-            (setq found (append (gnus-registry-fetch-groups key) found))
+            (let ((groups (gnus-registry-fetch-groups key)))
+              (dolist (group groups)
+                (setq found (append (list group) (delete group found)))))
             (push key matches)
             (gnus-message
              ;; raise level of messaging if gnus-registry-track-extra
@@ -542,7 +544,9 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
               matches)
           (when (and this-subject
                      (equal subject this-subject))
-            (setq found (append (gnus-registry-fetch-groups key) found))
+            (let ((groups (gnus-registry-fetch-groups key)))
+              (dolist (group groups)
+                (setq found (append (list group) (delete group found)))))
             (push key matches)
             (gnus-message
              ;; raise level of messaging if gnus-registry-track-extra