(gnus-registry-clean-empty-function)

(gnus-registry-clean-empty): remove only empty entries without
extra data

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b900469..7e8f135 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-04-13  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-registry.el (gnus-registry-clean-empty-function)
+       (gnus-registry-clean-empty): remove only empty entries without
+       extra data
+
 2004-04-12  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * spam-stat.el (spam-stat-buffer-change-to-spam)

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 30060b4..3fa2c88 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -84,7 +84,8 @@ The group names are matched, they don't have to be fully qualified."
 
 (defcustom gnus-registry-clean-empty t
   "Whether the empty registry entries should be deleted.
-Registry entries are considered empty when they have no groups."
+Registry entries are considered empty when they have no groups
+and no extra data."
   :group 'gnus-registry
   :type 'boolean)
 
@@ -248,7 +249,11 @@ way."
   (let ((count 0))
     (maphash
      (lambda (key value)
-       (unless (gnus-registry-fetch-group key)
+       (unless (or
+               (gnus-registry-fetch-group key)
+               ;; TODO: look for specific extra data here!
+               ;; in this example, we look for 'label
+               (gnus-registry-fetch-extra key 'label)) 
         (incf count)
         (remhash key gnus-registry-hashtb)))
      gnus-registry-hashtb)