mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(mail-source-value):

Browse source 
Prefer fboundp to functionp so it works with macros as well.
This commit is contained in:
Stefan Monnier 2008-04-07 16:03:31 +00:00
parent 49ec893114
commit e66d87717a
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/gnus/mail-source.el
View file

@ -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