Mercurial > emacs

diff lisp/gnus/gnus-registry.el @ 93386:a789a1138b08

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--devo--0 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1104
author Miles Bader <miles@gnu.org>
date Sat, 29 Mar 2008 19:54:11 +0000
parents d3767aa9ae49
children 1e3a407766b9
line wrap: on
line diff
--- a/lisp/gnus/gnus-registry.el	Sat Mar 29 15:28:57 2008 +0000
+++ b/lisp/gnus/gnus-registry.el	Sat Mar 29 19:54:11 2008 +0000
@@ -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