X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus.el;h=3168ac30225820b8ac2da07d627a594c906becef;hb=958fdccf869df15ec1a6946b2fbb2661bf7362e3;hp=d8daefe4a9b28c91dd6f3ba3cf56d19482d0ada3;hpb=d20e4b39f3e68ed15b71811924c11de4084d5371;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus.el b/lisp/gnus.el
index d8daefe..3168ac3 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -852,6 +852,7 @@ be set in `.emacs' instead."
     (storm "#666699" "#99ccff")
     (pdino "#9999cc" "#99ccff")
     (purp "#9999cc" "#666699")
+    (no "#000000" "#ff0000")
     (neutral "#b4b4b4" "#878787")
     (september "#bf9900" "#ffcc00"))
   "Color alist used for the Gnus logo.")
@@ -1789,6 +1790,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.  
@@ -2331,8 +2352,6 @@ This variable can be nil, gnus or gnus-ja."
   '(gnus-newsrc-options gnus-newsrc-options-n
 			gnus-newsrc-last-checked-date
 			gnus-newsrc-alist gnus-server-alist
-			gnus-registry-alist
-			gnus-registry-headers-alist
 			gnus-killed-list gnus-zombie-list
 			gnus-topic-topology gnus-topic-alist
 			gnus-agent-covered-methods)
@@ -2380,10 +2399,6 @@ gnus-newsrc-hashtb should be kept so that both hold the same information.")
   "Assoc list of registry data.
 gnus-registry.el will populate this if it's loaded.")
 
-(defvar gnus-registry-headers-alist nil
-  "Assoc list of registry header data.
-gnus-registry.el will populate this if it's loaded.")
-
 (defvar gnus-newsrc-hashtb nil
   "Hashtable of gnus-newsrc-alist.")