From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/47732 Path: main.gmane.org!not-for-mail From: Andreas Fuchs Newsgroups: gmane.emacs.gnus.general Subject: Patch for ifile spam splitting in spam.el (was: Re: spam.el experiences) Date: Tue, 19 Nov 2002 10:09:58 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" X-Trace: main.gmane.org 1037713993 6953 80.91.224.249 (19 Nov 2002 13:53:13 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 19 Nov 2002 13:53:13 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18E8oS-0001o1-00 for ; Tue, 19 Nov 2002 14:53:12 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 18E8of-0005Q3-00; Tue, 19 Nov 2002 07:53:25 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 19 Nov 2002 07:54:11 -0600 (CST) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id HAA27458 for ; Tue, 19 Nov 2002 07:53:55 -0600 (CST) Original-Received: (qmail 13192 invoked by alias); 19 Nov 2002 13:52:55 -0000 Original-Received: (qmail 5801 invoked from network); 19 Nov 2002 09:11:20 -0000 Original-Received: from mail.ycn.com (212.88.160.3) by gnus.org with SMTP; 19 Nov 2002 09:11:20 -0000 Original-Received: from eris.void.at (212-88-187-152.ADSL.ycn.com [212.88.187.152]) by mail.ycn.com (8.11.3/8.9.3/Debian 8.9.3-21) with ESMTP id gAJ9Jsq10815 for ; Tue, 19 Nov 2002 10:19:54 +0100 Original-Received: from asf by eris.void.at with local (Exim 3.36 #1 (Debian)) id 18E4OM-0002J6-00 for ; Tue, 19 Nov 2002 10:09:58 +0100 Mail-Copies-To: never X-Url: http://asf.void.at/ Original-To: ding@gnus.org X-Attribution: asf Mail-Followup-To: ding@gnus.org Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:47732 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:47732 --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Transfer-Encoding: quoted-printable Alright, I took the time to track the second one down. Please take a look at the patches and try them if you use ifile. On 2002-11-16, Andreas Fuchs wrote: > * ifile. I have used ifile to classify my spam&ham; does marking an > article with M-d also process it as a spam article in ifile? I still don't know if it does and would very much like a spam.el guru to testify (-: > * nnmail-split-methods. Before I had spam.el, I used [snip] > IMHO, these should act identical, but they don't. In fact, I get > errors every time I try to get new mails: "Error in > `nnmail-split-methods'; using `bogus' mail group". I tracked the error > down as far as I could, and found out that somewhere down there, an > apply gets called with only one argument. I didn't dare remove the > condition-case statement from nnmail.el:1043, for fear of mail loss. >=20 > Is there anything wrong with my configuration or can I make this > portion of code more debugable?=20 No configuration error, see this patch: --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=gnus-spam-el.patch Content-Transfer-Encoding: quoted-printable Content-Description: Patch for execution errors in ifile spam checking Index: lisp/spam.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /usr/local/cvsroot/gnus/lisp/spam.el,v retrieving revision 6.22 diff -c -r6.22 spam.el =2D-- lisp/spam.el 2002/10/22 05:04:49 6.22 +++ lisp/spam.el 2002/11/19 09:05:48 @@ -195,8 +195,8 @@ decision) (while (and list-of-checks (not decision)) (let ((pair (pop list-of-checks))) =2D (when (eval (car pair)) =2D (setq decision (apply (cdr pair)))))) + (when (symbol-value (car pair)) + (setq decision (funcall (cdr pair)))))) (if (eq decision t) nil decision))) --=-=-= Content-Transfer-Encoding: quoted-printable apply would not work without an argument, and did therefore (correctly) complain.=20 =2D-=20 Andreas Fuchs, , asf@jabber.at, antifuchs Was I helpful? Let others know: http://svcs.affero.net/rm.php?r=3Dantifuchs --=-=-=-- --==-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.1 (GNU/Linux) iD8DBQA92f/mucDAWATX9F8RAtnyAJ9jxqa+KoUYcDvmicNLkELHMmXWrgCaAsSp r0nzUE+RyK0uvRJpwloenQ8= =j0Da -----END PGP SIGNATURE----- --==-=-=--