From e66d87717a06df5804e002cfe9863cb228a17660 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 7 Apr 2008 16:03:31 +0000 Subject: [PATCH] (mail-source-value): Prefer fboundp to functionp so it works with macros as well. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/mail-source.el | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 96cc3112700..4047037cb72 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2008-04-07 Stefan Monnier + + * mail-source.el (mail-source-value): + Prefer fboundp to functionp so it works with macros as well. + 2008-04-05 Glenn Morris * gnus-ems.el (mm-disable-multibyte): Autoload it. diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index 088b91d8d58..583b19049c4 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -500,8 +500,7 @@ See `mail-source-bind'." ((stringp value) value) ;; Function - ((and (listp value) - (functionp (car value))) + ((and (listp value) (symbolp (car value)) (fboundp (car value))) (eval value)) ;; Just return the value. (t -- 2.39.2