#!/usr/bin/perl
use warnings;
use strict;

use lib '../lib';

use Mail::Box::Manager;
use Mail::Message::Convert::HtmlFormatText;
print "$HTML::Parser::VERSION\n";

my $mgr    = Mail::Box::Manager->new;
my $folder = $mgr->open("c");

warn $folder->messages;
my $message = $folder->message(0);

my $af = Mail::Message::Convert::HtmlFormatText->new;
my $plain_body = $af->format($message->body);
# $message->body should be $message->decoded
$plain_body->print;

