WWW::Topica::Mail - parse a single Topica mailing list mail

    my $index = WWW::Topic::Index->new($index_html);

    foreach my $mess_id ($index->message_ids) {
        # the mail has some information and also provides a link to the reply ...
        my $mail  = WWW::Topica::Mail->new($topica->fetch_mail($mess_id), $mess_id);
        # which has other information (like the un-htmled mail and the email address) ...            
        my $reply = WWW::Topica::Reply->new($topica->fetch_reply($mail->id, $mail->eto), $mail->id, $mail->eto);
    }

    print "Next offset is ".$index->next."\n";
    print "Previous offset is ".$index->prev."\n";

Used to parse a single message page from Topica.com's mailing list indexes.

Message pages have the subject and the date and time of the mail being sent as well as a full name of each sender.

Takes the page html and the message-id and parses the html.

Parse the html to get message ids and next & prev offsets.

Get the id of this mail

Get the eto of the next reply we need to get

Get the date of this mail

The subject of the mail

Get the name of the person it was from

Get the body of the mail.

Simon Wistow <simon@thegestalt.org>

Copyright (c) 2004, Simon Wistow