Re: Feature request ? (or help)

[Christopher Davis <ckd@loiosh.kei.com>]

JG> == John Griffith <griffith@sfs.nphil.uni-tuebingen.de>

 JG> I use procmail to split my mail into spool files.  One reason I use
 JG> procmail is that I like splitting to happen at delivery time.  That
 JG> way I always know when I have mail and who it's from.  Another reason
 JG> is though that I don't have to use Gnus to read it.  I just use `mail
 JG> -f ~/incoming/<file name>'.  I also have a shell script that does an
 JG> `ls' of the spool directory and lists all non-empty groups.

Here's a perl script which is a little more sophisticated than your shell
script; procmailers may want to look at this.  (I'm not yet using Gnus to
handle my mail... does use of procmail *without* suffixes, using the
directory to disambiguate the incoming spools and the Gnus-managed mail
storage, work?  I know this had problems in the past...)

It doesn't print empty groups, prints non-empty groups, and stars
non-empty groups that have been modified since last access (since last
access is typically by something like "from", "subj", "Mail", or "less").

#!/usr/bin/perl

$spooldir = "$ENV{'HOME'}/Mail/spool";

chdir($spooldir) || die "can't chdir";

foreach (<*>) {
    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
     $atime,$mtime,$ctime,$blksize,$blocks) = stat($_);
    next if ($size == 0);
    print (($atime < $mtime)?" ** ":"    ");
    print $_,"\n";
}