Re: Can I split messages based on their size?

[Svend Tollak Munkejord <stm@bacchus.pvv.org>]

I wrote:

> On 2003-10-12, Jesper Harder <harder@myrealbox.com> wrote:
>
>> Svend Tollak Munkejord <stm@bacchus.pvv.org> writes:
>>
>>> Using nnmail-split-fancy, can I somehow split messages based on
>>> their size?  My idea is that if they are sent to my "suspicious"
>>> e-mail address, and if they are larger than, say, 100 kb, then they
>>> are certainly spam.
>>
>> You can define your own function:
>>
>> (defun my-> (size group)
>> (when (> (buffer-size) size) group))
>
> Thanks -- this was elegant. However, it does not seem to take attachments
> into account, and those were the ones I was particularly aiming for. Do I
> need some further tricks?

OK. I only tried "B t" (trace respool), and not actually to respool ("B
r"). Respooling worked, and the complete message size seemed to be
accounted for. With the following extension, "B t" worked as well (Gnus
5.10.2).

(defun my-> (size group)
  "Return GROUP if message size is larger than SIZE."
  (save-excursion; necessary?
    (let ((buf (or (get-buffer nnmail-article-buffer); (" *nnmail incoming*") for email
		   (get-buffer " *nnfolder move*"); for respool
		   (get-buffer gnus-original-article-buffer)))); (" *Original Article*") for trace (B t),
      (if (not buf)
	  (progn (message "Oops, cannot find message buffer") nil)
	(set-buffer buf)    
	(when (> (buffer-size) size) group)))))

Is it a semi-bug that I had to set the buffer this way?

Regards,
-- 
Svend Tollak Munkejord