Index: lisp/spam.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/spam.el,v
retrieving revision 6.22
diff -c -r6.22 spam.el
--- lisp/spam.el	2002/10/22 05:04:49	6.22
+++ lisp/spam.el	2002/11/19 09:05:48
@@ -195,8 +195,8 @@
 	decision)
     (while (and list-of-checks (not decision))
       (let ((pair (pop list-of-checks)))
-	(when (eval (car pair))
-	  (setq decision (apply (cdr pair))))))
+	(when (symbol-value (car pair))
+	  (setq decision (funcall (cdr pair))))))
     (if (eq decision t)
 	nil
       decision)))