* gnus-agent.el (gnus-agent-make-cat): Added optional parameter to

	specify a predicate other than false.
	(gnus-category-read): Use the new feature to create a 'default'
	category with a 'short' predicate.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8138139..e14642e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-04-16  Kevin Greiner <kgreiner@xpediantsolutions.com>
+
+       * gnus-agent.el (gnus-agent-make-cat): Added optional parameter to
+       specify a predicate other than false.
+       (gnus-category-read): Use the new feature to create a 'default'
+       category with a 'short' predicate.
+       
 2003-04-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * message.el (message-unique-id): Comment change.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index dae533d..e374471 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -368,8 +368,8 @@ manipulated as follows:
                            (setcdr category (cons cell (cdr category)))
                            cell)) groups))))))
 
-(defsubst gnus-agent-cat-make (name)
-  (list name '(agent-predicate . false)))
+(defsubst gnus-agent-cat-make (name &optional default-agent-predicate)
+  (list name `(agent-predicate . ,(or default-agent-predicate 'false))))
 
 ;;; Fetching setup functions.
 
@@ -2184,7 +2184,7 @@ The following commands are available:
                                   '(agent-predicate agent-score-file agent-groups))))
                    c)
                  old-list)))))
-         (list (gnus-agent-cat-make 'default)))))
+         (list (gnus-agent-cat-make 'default 'short)))))
 
 (defun gnus-category-write ()
   "Write the category alist."