Mercurial > emacs
diff lisp/gnus/gnus-registry.el @ 93386:a789a1138b08
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