Re: functionp bug

[Stefan Monnier]

>       * subr.el (functionp): Return nil for special forms.

> Because of this, the `file' mail source without the :path spec,
> i.e. (setq mail-sources '((file))), for Gnus doesn't work as
> follows:

> (mail-source-value (cadr (assq :path (assq 'file mail-source-keyword-map))))
>  => (or (getenv "MAIL")
>         (expand-file-name (user-login-name) rmail-spool-directory))

I've installed the patch below which should fix it.


        Stefan


--- mail-source.el.~1.38.~      2008-03-30 10:39:37.000000000 -0400
+++ mail-source.el      2008-04-07 12:02:53.000000000 -0400
@@ -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