Re: [ANNOUNCE] contrib/hashcash.el spam fighter

[Simon Josefsson <jas@extundo.com>]

Kevin Ryde <user42@zip.com.au> writes:

> Simon Josefsson <jas@extundo.com> writes:
>>
>> The only thing I dislike is that SpamAssassin-Milter rewrites message
>> bodies, but I'll contribute a patch to fixes that as soon as I've
>> written it.

Btw, the patch is written.  I've been using it for 4-5 days and it
seems to work.

http://savannah.gnu.org/patch/?func=detailpatch&patch_id=385&group_id=1083

> I get a bit nervous about modifying mail, so I've just been doing a
> straightforward fancy-split on what spamc says,
>
> 	(defun my-spamassassin ()
> 	  (save-excursion
> 	    (let ((buf (or (get-buffer " *nnmail incoming*")
> 			   (get-buffer " *nnml move*"))))
> 	      (if (not buf)
> 		  (progn (message "Oops, cannot find message buffer") nil)
> 		(set-buffer buf)
> 		(if (eq 1 (call-process-region (point-min) (point-max)
> 					       "spamc" nil nil nil "-c"))
> 		    "spam")))))
>
> Is there a kosher way to look at the whole message? 

I think this was discussed earlier, and the answer was no.

> I know the manual shows *nnmail incoming*, but for a respool it
> seems to be *nnml move*.

Respooling is a bit ad-hoc, yes.

> This isn't very fast, but I don't know where the hold-up is.  Maybe
> having emacs speak down a pipe to a Mail::SpamAssassin script would be
> an improvement, or more likely it's just spamassassin itself taking
> the time.

Disabling the DNS based spam checks improves speed as well.

Thanks for your code snippet, I'm working on extending the spam
chapter in the manual and I'll include it unless you object.