How many times did you send this message to the list?
* "Basil A. Daoust" <[EMAIL PROTECTED]> [2008-06-24T14:59:34]
> I want to be able to read a MIME encoded email file (Thunderbird) and have
> a way of returning just the VIEWABLE body part.
"Viewable" isn't defined by any RFC. What do you mean?
> I tried Email::Simple but I get all the MIME encoding and both the TEXT and
> the HTML parts.
That won't work, because Email::Simple doesn't understand MIME.
> I tried Mail::Internet but then besides everything that Email::Simple gives
> I also get all the header data as part of the body.
That won't work, because Mail::Internet doesn't understand MIME.
> my $obj = Mail::Internet->new([ /\n/, $message ] ); my $body =
> $obj->body;
> print @$body,"\n";
> That returned the entire email, headers and everything, so much for
> getting the body.
I think you meant to put a "split" after the [. That's why it put everything
in the body.
You want something like:
my $root = Email::MIME->new($message_text);
my ($html_part) = grep { $_->content_type =~ m{^text/html} } $root->subparts;
my $encoded_html = $html_part->body;
my $html = Encode::decode($charset_from_content_type, $encoded_html);
--
rjbs
