#!/usr/bin/perl -w

use strict;

use lib '../lib';
use Mail::Box::Manager;
use Mail::Box;

my $mgr = Mail::Box::Manager->new;
my $fn = shift @ARGV or die;

my $folder = $mgr->open($fn) or die "Cannot open $fn";

warn ref $folder;
print $folder->nrMessages, " messages\n";
foreach my $msg ($folder->messages)
{   $msg->printStructure;

#   my $head = $msg->head;
#   my $keep = Mail::Message->build
#    ( From    => ($head->get('From') || '(undisclosed)')
#    , To      => ($head->get('To')   || '(undisclosed)')
#    , Subject => 'test'
#    );
#   $keep->print;

}

