Category: Utility Scripts
Author/Contact Info Mike Irwin - mikeirw@pobox.com
Description:

I needed to view the contents of a nnml mail directory, but didn't have access to Emacs or Gnus, so I whipped up this simple script to allow me to use mail -f instead. I must say that I'm a Perl newbie, so it may need some work. If so, I'll appreciate any comments.

A quick note: I did not include any code to match Gcc'ed emails (which doesn't generate a From header), so you may need to add that before running.

 
#!/usr/bin/perl -w
#
# Turn a Gnus nnml file into mbox format.  Prints to STDOUT.
# Usage: nnml2mbox files ...

use strict;
use File::Find;

my @nnml_files;
find sub {
    push @nnml_files, $File::Find::name
      if /^\d+/;
}, @ARGV;
@ARGV = @nnml_files;
while (<>) {
    s/^X-From-Line:/\nFrom/;
    print;
}
Replies are listed 'Best First'.
Re: nnml2mbox
by fundflow (Chaplain) on Jun 15, 2002 at 09:57 UTC
    Just to be on the safe side, you might do the following change: 
        s/^X-From-Line:/\nFrom/;

    [download]
[reply]
[d/l]
      Good suggestion, fundflow. I went ahead and updated the code.
[reply]

Back to Code Catacombs