* gnus-registry.el (gnus-registry-unregistered-group-regex):

removed in favor of the group/topic/global variables
(gnus-registry-register-message-ids): fixed test to omit
gnus-registry-unregistered-group-regex

* gnus.el (registry-ignore): new parameter, with accompanying
gnus-registry-ignored-groups global variable

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f518c46..6fd6136 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,15 @@
 2003-05-09  Teodor Zlatanov  <tzz@lifelogs.com>
 
+       * gnus-registry.el (gnus-registry-unregistered-group-regex):
+       removed in favor of the group/topic/global variables
+       (gnus-registry-register-message-ids): fixed test to omit
+       gnus-registry-unregistered-group-regex
+
        * gnus.el (gnus-variable-list): removed gnus-registry-alist and
        gnus-registry-headers-alist from the list
        (gnus-registry-headers-alist): removed
+       (registry-ignore): new parameter, with accompanying
+       gnus-registry-ignored-groups global variable
 
        * gnus-start.el (gnus-clear-system): no need to clear the
        registry, we can do it ourselves

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 482908b..19ff62e 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -51,11 +51,6 @@ The group names are matched, they don't have to be fully qualified."
   :group 'gnus-registry
   :type 'file)
 
-(defcustom gnus-registry-unregistered-group-regex "^nntp"
-  "Group name regex that gnus-registry-register-message-ids won't process."
-  :group 'gnus-registry
-  :type 'regexp)
-
 ;; Function(s) missing in Emacs 20
 (when (memq nil (mapcar 'fboundp '(puthash)))
   (require 'cl)
@@ -247,8 +242,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
 
 (defun gnus-registry-register-message-ids ()
   "Register the Message-ID of every article in the group"
-  (unless (and gnus-registry-unregistered-group-regex
-              (string-match gnus-registry-unregistered-group-regex gnus-newsgroup-name))
+  (unless (gnus-parameter-registry-ignore gnus-newsgroup-name)
     (dolist (article gnus-newsgroup-articles)
       (let ((id (gnus-registry-fetch-message-id-fast article)))
        (unless (gnus-registry-fetch-group id)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 24bc101..ac9a188 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1751,6 +1751,26 @@ articles to list when the group is a large newsgroup (see
 `gnus-large-newsgroup').  If it is nil, the default value is the
 total number of articles in the group.")
 
+;; The Gnus registry's ignored groups
+(gnus-define-group-parameter
+ registry-ignore
+ :type list
+ :function-document
+ "Whether this group should be ignored by the registry."
+ :variable gnus-registry-ignored-groups
+ :variable-default nil
+ :variable-document
+ "*Groups in which the registry should be turned off."
+ :variable-group gnus-registry
+ :variable-type '(repeat
+                 (list
+                  (regexp :tag "Group Name Regular Expression")
+                  (boolean :tag "Ignored")))
+ 
+ :parameter-type '(boolean :tag "Group Ignored by the Registry")
+ :parameter-document
+ "Whether the Gnus Registry should ignore this group.")
+
 ;; group parameters for spam processing added by Ted Zlatanov <tzz@lifelogs.com>
 (defcustom gnus-install-group-spam-parameters t
   "*Disable the group parameters for spam detection.