From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/66705
Path: news.gmane.org!not-for-mail
From: Stefan Monnier <monnier@iro.umontreal.ca>
Newsgroups: gmane.emacs.gnus.general,gmane.emacs.devel
Subject: Re: functionp bug
Date: Mon, 07 Apr 2008 12:04:06 -0400
Message-ID: <jwviqytwt2f.fsf-monnier+emacs@gnu.org>
References: <b4mej9ih34e.fsf@jpl.org>
NNTP-Posting-Host: lo.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: ger.gmane.org 1207584382 21668 80.91.229.12 (7 Apr 2008 16:06:22 GMT)
X-Complaints-To: usenet@ger.gmane.org
NNTP-Posting-Date: Mon, 7 Apr 2008 16:06:22 +0000 (UTC)
Cc: emacs-devel@gnu.org,  ding@gnus.org
To: Katsumi Yamaoka <yamaoka@jpl.org>
Original-X-From: ding-owner+M15189=ding+2Daccount=gmane.org@lists.math.uh.edu Mon Apr 07 18:06:44 2008
Return-path: <ding-owner+M15189=ding+2Daccount=gmane.org@lists.math.uh.edu>
Envelope-to: ding-account@gmane.org
Original-Received: from util0.math.uh.edu ([129.7.128.18])
	by lo.gmane.org with esmtp (Exim 4.50)
	id 1Jitq9-000051-2y
	for ding-account@gmane.org; Mon, 07 Apr 2008 18:05:01 +0200
Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu)
	by util0.math.uh.edu with smtp (Exim 4.63)
	(envelope-from <ding-owner+M15189=ding+2Daccount=gmane.org@lists.math.uh.edu>)
	id 1JitpV-0008Al-A9
	for ding-account@gmane.org; Mon, 07 Apr 2008 11:04:21 -0500
Original-Received: from mx2.math.uh.edu ([129.7.128.33])
	by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256)
	(Exim 4.63)
	(envelope-from <monnier@iro.umontreal.ca>)
	id 1JitpU-0008Ae-2G
	for ding@lists.math.uh.edu; Mon, 07 Apr 2008 11:04:20 -0500
Original-Received: from quimby.gnus.org ([80.91.231.51])
	by mx2.math.uh.edu with esmtp (Exim 4.67)
	(envelope-from <monnier@iro.umontreal.ca>)
	id 1JitpO-0005sL-7R
	for ding@lists.math.uh.edu; Mon, 07 Apr 2008 11:04:19 -0500
Original-Received: from 76-10-147-176.dsl.teksavvy.com ([76.10.147.176] helo=ceviche.home)
	by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian))
	id 1JitpX-0001Yz-00
	for <ding@gnus.org>; Mon, 07 Apr 2008 18:04:23 +0200
Original-Received: by ceviche.home (Postfix, from userid 20848)
	id D0869B46F1; Mon,  7 Apr 2008 12:04:06 -0400 (EDT)
In-Reply-To: <b4mej9ih34e.fsf@jpl.org> (Katsumi Yamaoka's message of "Mon, 07
	Apr 2008 10:20:49 +0900")
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux)
X-Spam-Score: -2.5 (--)
List-ID: <ding.gnus.org>
Precedence: bulk
Xref: news.gmane.org gmane.emacs.gnus.general:66705 gmane.emacs.devel:94583
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.general/66705>

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