added patch from Andreas Fuchs <asf@void.at> to prevent apply errors

diff --git a/lisp/spam.el b/lisp/spam.el
index 631ec5f..bb399c4 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -197,8 +197,8 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
        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)))