From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/2083
Path: news.gmane.org!not-for-mail
From: Reiner Steib <4.uce.03.r.s@nurfuerspam.de>
Newsgroups: gmane.emacs.gnus.user
Subject: Re: Limiting number of Incomingxxxx mails
Date: Fri, 14 Feb 2003 14:19:42 +0100
Organization: Dept. of Theoretical Physics, University of Ulm
Message-ID: <v91y2b0zkh.fsf@marauder.physik.uni-ulm.de>
References: <xeq3r8abqkpm.fsf@desh.cisco.com>
Reply-To: reiner.steib@gmx.de
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138668644 13865 80.91.229.2 (31 Jan 2006 00:50:44 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 00:50:44 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:30:09 2006
Original-Newsgroups: gnu.emacs.gnus
X-Face: :6KQZ[nyoS_edmB.%gw-=)BYth^|2+Y+^cu%I$FSx!&>-'om>3H7A|M&n(V7fIo3P.;yo.b
 yq4$p;ZaBtkv)\}biaiBQe"m<J92?W;7@l9d}<ii$${T~K6`/u6tB*Rwgz$YD6T:S7}]f<?7O'sIq2
 gwg>D}iib1AA@99-fZ7i*bLhNR<t1$(#./3hC)!>VC&0Wkxg9)SH?oWc@{
Mail-Copies-To: nobody
User-Agent: Gnus/5.090016 (Oort Gnus v0.16) Emacs/21.2.95
Cancel-Lock: sha1:SaZyU5dU35n40t6TCGJfNfM1eJw=
Original-NNTP-Posting-Host: theotp5.physik.uni-ulm.de
Original-X-Trace: news.uni-ulm.de 1045229402 theotp5.physik.uni-ulm.de (14 Feb 2003 14:30:02 +0100)
Original-Path: quimby.gnus.org!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!newsfeed01.sul.t-online.de!t-online.de!news.belwue.de!news.uni-ulm.de!theotp5.physik.uni-ulm.de!not-for-mail
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:2223
Original-Lines: 39
X-Gnus-Article-Number: 2223   Tue Jan 17 17:30:09 2006
Xref: news.gmane.org gmane.emacs.gnus.user:2083
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/2083>

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.

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 {} \\;"))
    ;; "echo" only for testing ..........^^^^
    (gnus-message 8 "Removing incoming files older than %s day(s)..." age)
    (gnus-message 8 "Running shell command `%s'..." cmd)
    (shell-command cmd)))

Remove the "echo" if you're sure it works. ;-) See the *Message*
buffer.

You can put this in an appropriate hook, e.g. `gnus-exit-gnus-hook'.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/