diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-07 16:03:31 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-07 16:03:31 +0000 |
| commit | e66d87717a06df5804e002cfe9863cb228a17660 (patch) | |
| tree | 9bf92c3c8feb7754e60dbc3dc28e1e5bbcea8b6c /lisp/gnus/mail-source.el | |
| parent | 49ec8931145d0bb09986e047a82ff1fe5f0bd27b (diff) | |
| download | emacs-e66d87717a06df5804e002cfe9863cb228a17660.tar.gz | |
(mail-source-value):
Prefer fboundp to functionp so it works with macros as well.
Diffstat (limited to 'lisp/gnus/mail-source.el')
| -rw-r--r-- | lisp/gnus/mail-source.el | 3 |
1 files changed, 1 insertions, 2 deletions
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 |