Re: Fancy splitting getting headers from included text

[Ted Zlatanov <tzz@lifelogs.com>]

On Tue, 15 Apr 2003, dmaze@MIT.EDU wrote:
> Ted Zlatanov <tzz@lifelogs.com> 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