Re: Limiting number of Incomingxxxx mails

[Sriram Karra <karra@shakti.homelinux.net>]

Reiner Steib <4.uce.03.r.s@nurfuerspam.de> writes:

> On Fri, Feb 14 2003, Sriram Karra wrote:
>
> [ ~/Mail/Incomingxxx ]
>> What I am looking for is some way to tweak this feature such that it
>> will not take up too much disk space.  (Recently I noticed that these
>> files accounted for ~65% of the size of ~/Mail/ :)
>>
>> What variables should I be looking at?
>
> I'm not aware of any predefined functionality in Gnus to do this.
>

OK; in which case I guess a variant of the following could be
considered for commit?

> As you're using Unix, you may do something like this:
>
> (defun rs-gnus-remove-old-mail-source (&optional age)
>   "Remove incoming files older than AGE days."
>   (interactive "P")
>   (let ((def-age 7) cmd)
>     (setq age (number-to-string (if (and (numberp 'age) (> age 0))
> 				    age
> 				  def-age)))
>     (setq cmd
> 	  (concat "find " mail-source-directory
> 		  mail-source-incoming-file-prefix "* "
> 		  "-mtime +" age " -exec echo rm {} \\;"))

How about  ......................" -print | xargs echo rm "

That would be much faster.

But it would still be too slow to be put in some hook.  I guess a
standalone *Group* buffer command should be good enough.

Thanks,
-Sriram.

-- 
Well, all's well that ends.