procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Back out part of commit db5e84af20

Browse source 
* lisp/gnus/gnus-agent.el (gnus-category-make-function-1): This code is
untested and was not meant to be part of the earlier commit.
This commit is contained in:
Eric Abrahamsen 2024-02-18 18:08:51 -08:00
parent 4a8d3c5b75
commit f6743099cc
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/gnus-agent.el
View file

@ -2920,9 +2920,8 @@ The following commands are available:
;; Functions are just returned as is.
((or (symbolp predicate)
(functionp predicate))
(let ((fun (or (cdr (assq predicate gnus-category-predicate-alist))
predicate)))
(if (symbolp fun) `(,fun) `(funcall ',fun))))
`(,(or (cdr (assq predicate gnus-category-predicate-alist))
predicate)))
;; More complex predicate.
((consp predicate)
`(,(cond