From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/2099
Path: news.gmane.org!not-for-mail
From: Sriram Karra <karra@shakti.homelinux.net>
Newsgroups: gmane.emacs.gnus.user
Subject: Re: Limiting number of Incomingxxxx mails
Date: Mon, 17 Feb 2003 10:26:51 +0530
Organization: The Klingon High Council
Message-ID: <xeq3heb3a4j0.fsf@desh.cisco.com>
References: <xeq3r8abqkpm.fsf@desh.cisco.com> <v91y2b0zkh.fsf@marauder.physik.uni-ulm.de>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138668656 13929 80.91.229.2 (31 Jan 2006 00:50:56 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 00:50:56 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:30:10 2006
Original-Path: quimby.gnus.org!newsfeed1.e.nsc.no!nsc.no!nextra.com!bnewspeer00.bru.ops.eu.uu.net!emea.uu.net!newsfeed.freenet.de!newsfeed.news2me.com!newsfeed-west.nntpserver.com!hub1.meganetnews.com!nntpserver.com!telocity-west!DIRECTV!sn-xit-03!sn-xit-01!sn-post-01!supernews.com!corp.supernews.com!not-for-mail
Original-Newsgroups: gnu.emacs.gnus
Mail-Copies-To: nobody
X-Attribution: karra
User-Agent: Gnus/5.090008 (Oort Gnus v0.08) Emacs/21.2
 (sparc-sun-solaris2.5.1)
Cancel-Lock: sha1:B1MIVsOREGUAj8dxsMJ8dIvuTbo=
Cache-Post-Path: sj-nntpcache-5!unknown@desh.cisco.com
X-Cache: nntpcache 2.4.0b2 (see http://www.nntpcache.org/)
Original-X-Complaints-To: abuse@supernews.com
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:2239
Original-Lines: 43
X-Gnus-Article-Number: 2239   Tue Jan 17 17:30:10 2006
Xref: news.gmane.org gmane.emacs.gnus.user:2099
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/2099>

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.