From 5c3f6777aaa6fed01367a5d5845157c610cc83e4 Mon Sep 17 00:00:00 2001 From: Ted Zlatanov Date: Wed, 1 Jun 2011 12:26:33 -0500 Subject: [PATCH] * gnus-registry.el (gnus-registry-remove-ignored): New function to remove entries with groups we ignore. --- lisp/ChangeLog | 5 +++++ lisp/gnus-registry.el | 14 ++++++++++++++ 2 files changed, 19 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a62ef4280..35d4e0997 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-06-01 Teodor Zlatanov + + * gnus-registry.el (gnus-registry-remove-ignored): New function to + remove entries with groups we ignore. + 2011-05-31 Lars Magne Ingebrigtsen * shr.el (shr-rescale-image): Add an :ascent of 100 to images so that diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el index f6c0daaaa..a44986e24 100644 --- a/lisp/gnus-registry.el +++ b/lisp/gnus-registry.el @@ -321,6 +321,20 @@ This is not required after changing `gnus-registry-cache-file'." (gnus-message 5 "Saving Gnus registry (size %d) to %s...done" (registry-size db) file))) +(defun gnus-registry-remove-ignored () + (interactive) + (let* ((db gnus-registry-db) + (grouphashtb (registry-lookup-secondary db 'group)) + (old-size (registry-size db))) + (registry-reindex db) + (loop for k being the hash-keys of grouphashtb + using (hash-values v) + when (gnus-registry-ignore-group-p k) + do (registry-delete db v nil)) + (registry-reindex db) + (gnus-message 4 "Removed %d ignored entries from the Gnus registry" + (- old-size (registry-size db))))) + ;; article move/copy/spool/delete actions (defun gnus-registry-action (action data-header from &optional to method) (let* ((id (mail-header-id data-header)) -- 2.25.1