Changes committed gnus/lisp (ChangeLog gnus-registry.el)

Modified: ChangeLog gnus-registry.el

(gnus-registry-split-fancy-with-parent): Eliminate
unnecessary duplicates from the match list.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1796 gnus/lisp/ChangeLog:7.1797
--- ChangeLog:7.1796	Mon Mar 17 02:16:04 2008
+++ ChangeLog	Mon Mar 17 16:40:58 2008
@@ -1,3 +1,8 @@
+2008-03-17  Teodor Zlatanov  <[email protected]>
+
+	* gnus-registry.el (gnus-registry-split-fancy-with-parent): Eliminate
+	unnecessary duplicates from the match list.
+
 2008-03-17  Katsumi Yamaoka  <[email protected]>
 
 	* dgnushack.el: Autoload Info-index and Info-index-next for XEmacs.
Index: gnus-registry.el
diff -u gnus/lisp/gnus-registry.el:7.54 gnus/lisp/gnus-registry.el:7.55
--- gnus-registry.el:7.54	Thu Mar  6 22:08:22 2008
+++ gnus-registry.el	Mon Mar 17 16:40:58 2008
@@ -520,7 +520,9 @@
 	       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 @@
 	       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