#!/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;
}
Snippets of code should be wrapped in
<code> tags not<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).