From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/25711 Path: main.gmane.org!not-for-mail From: Yoshiki Hayashi Newsgroups: gmane.emacs.gnus.general Subject: gnus-treat-predicate doesn't honor typep Date: 07 Oct 1999 11:22:21 +0900 Sender: owner-ding@hpc.uh.edu Message-ID: <87ln9f9ag2.fsf@dp50.ecc.u-tokyo.ac.jp> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by SEMI 1.13.7 - "Awazu") Content-Type: multipart/mixed; boundary="Multipart_Thu_Oct__7_11:22:20_1999-1" X-Trace: main.gmane.org 1035163048 15459 80.91.224.250 (21 Oct 2002 01:17:28 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:17:28 +0000 (UTC) Return-Path: Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id WAA27674 for ; Wed, 6 Oct 1999 22:25:48 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id VAB28605; Wed, 6 Oct 1999 21:24:44 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 06 Oct 1999 21:25:54 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id VAA27362 for ; Wed, 6 Oct 1999 21:25:45 -0500 (CDT) Original-Received: from komaba.ecc.u-tokyo.ac.jp (root@m.komaba.ecc.u-tokyo.ac.jp [157.82.50.211]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id WAA27655 for ; Wed, 6 Oct 1999 22:23:26 -0400 (EDT) Original-Received: from dp50.ecc.u-tokyo.ac.jp (fw302.ecc.u-tokyo.ac.jp [133.11.171.252]) by komaba.ecc.u-tokyo.ac.jp (8.9.3/3.7Wpl2/99020517) with ESMTP id LAA24913 for ; Thu, 7 Oct 1999 11:23:12 +0900 (JST) Mail-Copies-To: never Original-To: ding@gnus.org Original-Lines: 44 User-Agent: T-gnus/6.13.2 (based on Pterodactyl Gnus v0.97) (revision 04) SEMI/1.13.7 (Awazu) FLIM/1.13.2 (Kasanui) MULE XEmacs/21.2 (beta19) (Shinjuku) (i686-pc-linux) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:25711 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:25711 --Multipart_Thu_Oct__7_11:22:20_1999-1 Content-Type: text/plain; charset=US-ASCII I confirmed this with pgnus 0.97.1 Setting something like (typep "text/plain") to gnus-treat-* is not working. gnus-treat-predicate does pop for (typep "text/plain"), and then cadr ("text/plain"). This always returns nil. 1999-10-07 Yoshiki Hayashi * gnus-art.el (gnus-treat-predicate): Work for (typep "something"). --Multipart_Thu_Oct__7_11:22:20_1999-1 Content-Type: application/x-patch; type=patch Content-Disposition: attachment; filename="gnus-art.el.diff" Content-Transfer-Encoding: 7bit Index: gnus-art.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-art.el,v retrieving revision 5.80 diff -u -r5.80 gnus-art.el --- gnus-art.el 1999/09/28 00:59:27 5.80 +++ gnus-art.el 1999/10/07 02:19:34 @@ -4520,7 +4520,7 @@ ((eq pred 'not) (not (gnus-treat-predicate (car val)))) ((eq pred 'typep) - (equal (cadr val) type)) + (equal (car val) type)) (t (error "%S is not a valid predicate" pred))))) (t --Multipart_Thu_Oct__7_11:22:20_1999-1 Content-Type: text/plain; charset=US-ASCII -- Yoshiki Hayashi --Multipart_Thu_Oct__7_11:22:20_1999-1--