Mercurial > emacs
changeset 93824:217fd7a2dc38
(mail-source-value):
Prefer fboundp to functionp so it works with macros as well.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 07 Apr 2008 16:03:31 +0000 |
| parents | 11a95e2059c8 |
| children | f0bcbdcf1d54 |
| files | lisp/gnus/ChangeLog lisp/gnus/mail-source.el |
| diffstat | 2 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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