Re: Limiting number of Incomingxxxx mails

Re: Limiting number of Incomingxxxx mails

[Reiner Steib]

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/

Re: Limiting number of Incomingxxxx mails

[Frank Schmitt]

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.

WIBNIG had an option to automatically compress those files when storing
them on disk?

-- 
One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them
In the Land of Mordor where the Shadows lie.

Re: Limiting number of Incomingxxxx mails

[Sriram Karra]

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.