diff options
| author | Miles Bader <miles@gnu.org> | 2008-03-29 19:54:11 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2008-03-29 19:54:11 +0000 |
| commit | 9b3ebcb696524f3711c46a4386e54e9ab5388b74 (patch) | |
| tree | b5ff6dd7cf06b6dc284026824b0f052fb2644b01 /lisp/gnus/gnus-registry.el | |
| parent | 9c06a1f304c51d595df7f9225f70f3d35af010fb (diff) | |
| download | emacs-9b3ebcb696524f3711c46a4386e54e9ab5388b74.tar.gz emacs-9b3ebcb696524f3711c46a4386e54e9ab5388b74.tar.bz2 emacs-9b3ebcb696524f3711c46a4386e54e9ab5388b74.zip | |
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1104
Diffstat (limited to 'lisp/gnus/gnus-registry.el')
| -rw-r--r-- | lisp/gnus/gnus-registry.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el index 5141a5e2d32..7cdb075b836 100644 --- a/lisp/gnus/gnus-registry.el +++ b/lisp/gnus/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 |