(gnus-registry-clean-empty): remove only empty entries without
extra data
+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)
(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)
(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)