From 715effa0ef7329463dabc894f243685d2dbc66e4 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Thu, 21 Nov 2002 15:39:06 +0000 Subject: [PATCH] added patch from Andreas Fuchs to prevent apply errors --- lisp/spam.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/spam.el b/lisp/spam.el index 631ec5fb5..bb399c459 100644 --- 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))) -- 2.34.1