#!/usr/bin/perl -w
use strict;
use lib '../lib';

use Mail::Box::Manager;
use Mail::Transport::SMTP;
use Mail::Message::Head::ResentGroup;

my $mgr    = Mail::Box::Manager->new;
my $to     = Mail::Address->new('Mark ','mark@overmeer.net');

my $folder = $mgr->open
   ( 'a'
   , extract => 'LAZY'
   );

my @messages = $folder->messages;

foreach my $message ($messages[0])
{
#   $message->head->delete('To');
#   $message->head->set('To' => $to);
    $message->head->delete('From');
    $message->head->delete('Sender');

    my $mailer = Mail::Transport::SMTP->new
     ( hostname   => 'localhost'
     , port       => '25'
     , trace      => 'NOTICE'
     , smtp_debug => 1
#    , timeout    => 10
#    , retry      => 1
     );

    my @d =  $message->destinations;
    warn scalar @d, ": ", $d[0]->format;

#   $message->print;
    $mailer->send($message, to => $to) or warn "Failed";
}

