From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/51490 Path: main.gmane.org!not-for-mail From: Ted Zlatanov Newsgroups: gmane.emacs.gnus.general Subject: Re: Fancy splitting getting headers from included text Date: Tue, 15 Apr 2003 15:47:11 -0400 Organization: =?koi8-r?q?=F4=C5=CF=C4=CF=D2=20=FA=CC=C1=D4=C1=CE=CF=D7?= @ Cienfuegos Sender: ding-owner@lists.math.uh.edu Message-ID: <4nsmsja6gw.fsf@lockgroove.bwh.harvard.edu> References: <843cl5i4kg.fsf@lucy.is.informatik.uni-duisburg.de> <874r51jcsv.fsf@cag.lcs.mit.edu> <87znmsygfh.fsf@cag.lcs.mit.edu> <4n3ckjbqpg.fsf@lockgroove.bwh.harvard.edu> <87ptnntyt3.fsf@cag.lcs.mit.edu> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1050436025 17402 80.91.224.249 (15 Apr 2003 19:47:05 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 15 Apr 2003 19:47:05 +0000 (UTC) Cc: ding@gnus.org Original-X-From: ding-owner+M34@lists.math.uh.edu Tue Apr 15 21:47:03 2003 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 195WOM-0004Vt-00 for ; Tue, 15 Apr 2003 21:46: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 195WOl-0002Lx-00; Tue, 15 Apr 2003 14:47:19 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 195WOh-0002Ls-00 for ding@lists.math.uh.edu; Tue, 15 Apr 2003 14:47:15 -0500 Original-Received: (qmail 22273 invoked by alias); 15 Apr 2003 19:47:15 -0000 Original-Received: (qmail 22267 invoked from network); 15 Apr 2003 19:47:15 -0000 Original-Received: from clifford.bwh.harvard.edu (134.174.9.41) by sclp3.sclp.com with SMTP; 15 Apr 2003 19:47:15 -0000 Original-Received: from lockgroove.bwh.harvard.edu (lockgroove [134.174.9.133]) by clifford.bwh.harvard.edu (8.10.2+Sun/8.11.0) with ESMTP id h3FJlBI00926; Tue, 15 Apr 2003 15:47:11 -0400 (EDT) Original-Received: (from tzz@localhost) by lockgroove.bwh.harvard.edu (8.11.6+Sun/8.11.0) id h3FJlBn06332; Tue, 15 Apr 2003 15:47:11 -0400 (EDT) Original-To: David Z Maze X-Face: bd.DQ~'29fIs`T_%O%C\g%6jW)yi[zuz6;d4V0`@y-~$#3P_Ng{@m+e4o<4P'#(_GJQ%TT= D}[Ep*b!\e,fBZ'j_+#"Ps?s2!4H2-Y"sx" Mail-Followup-To: David Z Maze , ding@gnus.org In-Reply-To: <87ptnntyt3.fsf@cag.lcs.mit.edu> (David Z. Maze's message of "Tue, 15 Apr 2003 14:12:24 -0400") User-Agent: Gnus/5.090019 (Oort Gnus v0.19) Emacs/21.3 (usg-unix-v) Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:51490 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:51490 On Tue, 15 Apr 2003, dmaze@MIT.EDU wrote: > Ted Zlatanov writes: > >> Are you and Simon saying the code also needs a save-restriction >> inside the save-excursion? If that's the case, try this >> (improperly indented) version of spam-split and see how it works: > > Aah, that seems to have helped. OK, fix committed to CVS. I hope it works for everyone. >> I think the code you mean is this: >> >> (save-excursion >> (dolist (check spam-list-of-statistical-checks) >> (when (symbol-value check) >> (widen) (gnus-message 8 "spam-split: widening the buffer (%s requires it)" >> (symbol-name check)) >> (return))) >> ...) > > Yeah, I might write something more like > > (if (memq nil > (mapcar 'not > (mapcar 'symbol-value spam-list-of-statistical-checks))) > (widen)) > > Though that eliminates the possibility of the gnus-message. Ah, but mapcar, just like dolist, goes through the whole list, and I wanted to optimize :) Looking back I see it's a pretty useless optimization, but I was trying to learn Lisp and how to return from forms at the time. Ted