# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1207584211 0
# Node ID 217fd7a2dc383652839f6eb98fdc4a5f4e9b044c
# Parent  11a95e2059c85aa050741f6382020da5af522cb7
(mail-source-value):
Prefer fboundp to functionp so it works with macros as well.

diff -r 11a95e2059c8 -r 217fd7a2dc38 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Mon Apr 07 16:01:47 2008 +0000
+++ b/lisp/gnus/ChangeLog	Mon Apr 07 16:03:31 2008 +0000
@@ -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 -r 11a95e2059c8 -r 217fd7a2dc38 lisp/gnus/mail-source.el
--- a/lisp/gnus/mail-source.el	Mon Apr 07 16:01:47 2008 +0000
+++ b/lisp/gnus/mail-source.el	Mon Apr 07 16:03:31 2008 +0000
@@ -500,8 +500,7 @@
    ((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