Changed parse() to parse Reply-To as AddressListField

[mime4j.git] / bin / split-mbox.pl

#!/usr/bin/perl -pl

if ( /^From / ) {
        close(OUT);
        open(OUT, ">>message.".$i++) || die "Can't open new file!  $i\n";
        select(OUT);
        print STDERR "Opened $i";
}