Index: lisp/gnus-art.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-art.el,v
retrieving revision 6.264
diff -u -r6.264 gnus-art.el
--- lisp/gnus-art.el	2003/01/02 20:45:14	6.264
+++ lisp/gnus-art.el	2003/01/02 21:30:06
@@ -6253,6 +6253,8 @@
   (cond
    ((null val)
     nil)
+   (condition
+    (eq condition val))
    ((and (listp val)
 	 (stringp (car val)))
     (apply 'gnus-or (mapcar `(lambda (s)
@@ -6271,8 +6273,6 @@
 	(equal (car val) type))
        (t
 	(error "%S is not a valid predicate" pred)))))
-   (condition
-    (eq condition val))
    ((eq val t)
     t)
    ((eq val 'head)