From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/35526
Path: main.gmane.org!not-for-mail
From: merlyn@stonehenge.com (Randal L. Schwartz)
Newsgroups: gmane.emacs.gnus.general
Subject: Re: nnml compression: state of the art?
Date: 29 Mar 2001 09:12:24 -0800
Message-ID: <m1d7b0qz2f.fsf@halfdome.holdit.com>
References: <ruor8zhx9vo.fsf@g.wolfram.com>
	<01Mar29.105117est.115281@gateway.intersys.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035171256 3559 80.91.224.250 (21 Oct 2002 03:34:16 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 03:34:16 +0000 (UTC)
Cc: "(ding)" <ding@gnus.org>
Return-Path: <owner-ding@gnus.org>
Original-Received: (qmail 2583 invoked by alias); 29 Mar 2001 17:12:30 -0000
Original-Received: (qmail 2578 invoked from network); 29 Mar 2001 17:12:29 -0000
Original-Received: from halfdome.holdit.com (merlyn@209.102.105.64)
  by gnus.org with SMTP; 29 Mar 2001 17:12:29 -0000
Original-Received: (from merlyn@localhost)
	by halfdome.holdit.com (8.9.1/8.9.1) id JAA24777;
	Thu, 29 Mar 2001 09:12:24 -0800
Original-To: Stainless Steel Rat <ratinox@peorth.gweep.net>
In-Reply-To: <01Mar29.105117est.115281@gateway.intersys.com>
User-Agent: Gnus/5.0808 (Gnus v5.8.8) Emacs/20.3
Original-Lines: 31
Xref: main.gmane.org gmane.emacs.gnus.general:35526
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:35526

>>>>> "Rat" == Stainless Steel Rat <ratinox@peorth.gweep.net> writes:

Rat> The most efficient thing would be to occasionally run a find command like
Rat> this:

Rat>   find $HOME/Mail \
Rat>     -name ".overview" -prune -o \
Rat>     -name "*.gz" -prune -o \
Rat>     -type f -size +4k -print | xargs gzip -1

Rat> substituting your filesystem's block size in the +4k segment.  This will
Rat> skip compressing .overview files and files that are already compressed.
Rat> Anything more than minimal compression will not gain you much.

    #!/usr/bin/perl
    use strict;
    $|++;

    use File::Find;

    find sub {
      return unless /^(\d+)$/ and -f and -s _ > 65535 and -A _ > 0.1;
      system '/bin/gzip', "-9v", $File::Find::name;
    }, "/home/merlyn/Mail";


-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!