(mail-source-value):

Prefer fboundp to functionp so it works with macros as well.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 96cc3112700aee64ae7ee04f789ec50f09a30082..4047037cb721fb7bf0574ee8baf49d5dd79dfd31 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-07  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * mail-source.el (mail-source-value):
+       Prefer fboundp to functionp so it works with macros as well.
+
 2008-04-05  Glenn Morris  <rgm@gnu.org>
 
        * gnus-ems.el (mm-disable-multibyte): Autoload it.

diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index 088b91d8d58a0f6eeee1dc1a05b4e1a9dd46c12c..583b19049c421d793a7a2d30a55d3acdb12f4804 100644 (file)
--- 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