From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/56905 Path: main.gmane.org!not-for-mail From: asjo@koldfront.dk (=?iso-8859-1?q?Adam_Sj=F8gren?=) Newsgroups: gmane.emacs.gnus.general Subject: Re: CRM114 Mailfilter and spam.el Date: Sat, 03 Apr 2004 23:58:54 +0200 Organization: koldfront - analysis & revolution, Copenhagen, Denmark Sender: ding-owner@lists.math.uh.edu Message-ID: <87oeq8g1up.fsf@virgil.koldfront.dk> References: <87isgjpggh.fsf@virgil.koldfront.dk> <87wu4ysxum.fsf@emptyhost.emptydomain.de> <87lllegya2.fsf@virgil.koldfront.dk> <4nwu4y47zv.fsf@lifelogs.com> <87oeq8kbs9.fsf@virgil.koldfront.dk> <87k70wkbdx.fsf@virgil.koldfront.dk> <87fzbkvilj.fsf@virgil.koldfront.dk> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1081029541 23012 80.91.224.253 (3 Apr 2004 21:59:01 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 3 Apr 2004 21:59:01 +0000 (UTC) Original-X-From: ding-owner+M5444@lists.math.uh.edu Sat Apr 03 23:58:55 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1B9tAE-0006Ej-00 for ; Sat, 03 Apr 2004 23:58:55 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1B9tA3-0004UD-00; Sat, 03 Apr 2004 15:58:43 -0600 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1B9t9z-0004U8-00 for ding@lists.math.uh.edu; Sat, 03 Apr 2004 15:58:39 -0600 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by util2.math.uh.edu with esmtp (Exim 4.30) id 1B9t9x-0007Mr-7F for ding@lists.math.uh.edu; Sat, 03 Apr 2004 15:58:37 -0600 Original-Received: from main.gmane.org (main.gmane.org [80.91.224.249]) by justine.libertine.org (Postfix) with ESMTP id 7A8143A0039 for ; Sat, 3 Apr 2004 15:58:36 -0600 (CST) Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 1B9t9v-0000VH-00 for ; Sat, 03 Apr 2004 23:58:35 +0200 Original-Received: from finn.gmane.org ([80.91.224.251]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 03 Apr 2004 23:58:35 +0200 Original-Received: from asjo by finn.gmane.org with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 03 Apr 2004 23:58:35 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-To: ding@gnus.org Original-Lines: 50 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: finn.gmane.org X-Face: &DfBw60^ZxI8hd?J%t&_8wW?SLF%BBx<2XQ+sXYpX!?{=0C?9D{Nc`;Eq<0d=-L User-Agent: Gnus/5.110002 (No Gnus v0.2) XEmacs/21.4 (Security Through Obscurity, linux) Cancel-Lock: sha1:/KV6jpiUREXdgKicYT6mh5xyuXU= X-Spam-Score: -4.9 (----) Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:56905 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:56905 --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable On Sat, 03 Apr 2004 23:48:08 +0200, Adam wrote: > I'm wondering about the last quoted line above "article mark todo > deletep respool" - maybe todo shouldn't be there? Please advise. > (My lack of elisp grasp shows again :-)) It works for me with the attached minimal patch. Best regards, Adam --=20 "Mr. Cotton's... parrot. Same question." Adam Sj=F8gren asjo@koldfront.dk --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=move-ham-from-nonham-groups.patch --- spam.el 2 Apr 2004 19:09:16 -0000 7.27 +++ spam.el 3 Apr 2004 21:54:27 -0000 @@ -776,8 +776,8 @@ (spam-ham-copy-routine (gnus-parameter-ham-process-destination gnus-newsgroup-name))) - ;; now move all ham articles out of spam groups - (when (spam-group-spam-contents-p gnus-newsgroup-name) + ;; now move all ham articles out of non-ham groups + (when (not (spam-group-ham-contents-p gnus-newsgroup-name)) (gnus-message 5 "Moving ham messages from spam group") (spam-ham-move-routine (gnus-parameter-ham-process-destination gnus-newsgroup-name)))) @@ -859,7 +859,7 @@ (gnus-check-backend-function 'request-move-article gnus-newsgroup-name)) (respool-method (gnus-find-method-for-group gnus-newsgroup-name)) - article mark todo deletep respool) + article mark deletep respool) (when (member 'respool groups) (setq respool t) ; boolean for later --=-=-=--