Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
93385:dcff6c60c69e 93386:a789a1138b08
518 (let ((this-sender (cdr 518 (let ((this-sender (cdr
519 (gnus-registry-fetch-extra key 'sender))) 519 (gnus-registry-fetch-extra key 'sender)))
520 matches) 520 matches)
521 (when (and this-sender 521 (when (and this-sender
522 (equal sender this-sender)) 522 (equal sender this-sender))
523 (setq found (append (gnus-registry-fetch-groups key) found)) 523 (let ((groups (gnus-registry-fetch-groups key)))
524 (dolist (group groups)
525 (setq found (append (list group) (delete group found)))))
524 (push key matches) 526 (push key matches)
525 (gnus-message 527 (gnus-message
526 ;; raise level of messaging if gnus-registry-track-extra 528 ;; raise level of messaging if gnus-registry-track-extra
527 (if gnus-registry-track-extra 7 9) 529 (if gnus-registry-track-extra 7 9)
528 "%s (extra tracking) traced sender %s to groups %s (keys %s)" 530 "%s (extra tracking) traced sender %s to groups %s (keys %s)"
540 (let ((this-subject (cdr 542 (let ((this-subject (cdr
541 (gnus-registry-fetch-extra key 'subject))) 543 (gnus-registry-fetch-extra key 'subject)))
542 matches) 544 matches)
543 (when (and this-subject 545 (when (and this-subject
544 (equal subject this-subject)) 546 (equal subject this-subject))
545 (setq found (append (gnus-registry-fetch-groups key) found)) 547 (let ((groups (gnus-registry-fetch-groups key)))
548 (dolist (group groups)
549 (setq found (append (list group) (delete group found)))))
546 (push key matches) 550 (push key matches)
547 (gnus-message 551 (gnus-message
548 ;; raise level of messaging if gnus-registry-track-extra 552 ;; raise level of messaging if gnus-registry-track-extra
549 (if gnus-registry-track-extra 7 9) 553 (if gnus-registry-track-extra 7 9)
550 "%s (extra tracking) traced subject %s to groups %s (keys %s)" 554 "%s (extra tracking) traced subject %s to groups %s (keys %s)"