From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Sun, 3 Mar 2024 02:07:36 +0000 (-0800)
Subject: Use funcall on function values in gnus-agent.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7442a47ed7b7c9cf27a85d37fbf132817d4b5f4;p=emacs.git

Use funcall on function values in gnus-agent.el

See bug#68931

* lisp/gnus/gnus-agent.el (gnus-category-make-function-1): Don't just
pass function values in to be byte compiled, wrap them in funcall first.

(cherry picked from commit 7f8717c6fd3e19b41048ce9a391d59540886cdee)
---

diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index 1726b806913..0928b179787 100644
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -2920,8 +2920,9 @@ The following commands are available:
    ;; Functions are just returned as is.
    ((or (symbolp predicate)
 	(functionp predicate))
-    `(,(or (cdr (assq predicate gnus-category-predicate-alist))
-	   predicate)))
+    (let ((fun (or (cdr (assq predicate gnus-category-predicate-alist))
+	           predicate)))
+      (if (symbolp fun) `(,fun) `(funcall ',fun))))
    ;; More complex predicate.
    ((consp predicate)
     `(,(cond