From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 7 Apr 2008 16:03:31 +0000 (+0000)
Subject: (mail-source-value):
X-Git-Tag: emacs-pretest-23.0.90~6463
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e66d87717a06df5804e002cfe9863cb228a17660;p=emacs.git

(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 96cc3112700..4047037cb72 100644
--- 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 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