From: Teodor Zlatanov <tzz@lifelogs.com>
Date: Fri, 9 May 2003 17:11:19 +0000 (+0000)
Subject: * gnus-registry.el (gnus-registry-unregistered-group-regex):
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=fad44496b90305968f5d968cbb33ac8599fee8c5;p=gnus

* 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 f518c4651..6fd6136e3 100644
--- 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 482908bfe..19ff62e03 100644
--- 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 24bc101ba..ac9a1882d 100644
--- 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.