NAME

Email::Thread - Use JWZ's mail threading algorithm with Email::Simple objects

SYNOPSIS

use Email::Thread;
my $threader = new Email::Thread (@messages);

$threader->thread;

dump_em($_,0) for $threader->rootset;

sub dump_em {
    my ($self, $level) = @_;
    debug (' \\-> ' x $level);
    if ($self->message) {
        print $self->message->head->get("Subject") , "\n";
    } else {
        print "[ Message $self not available ]\n";
    }
    dump_em($self->child, $level+1) if $self->child;
    dump_em($self->next, $level) if $self->next;
}

DESCRIPTION

Strictly speaking, this doesn't really need Email::Simple objects. It just needs an object that responds to the same API. At the time of writing the list of classes with the Email::Simple API comprises just Email::Simple.

Due to how it's implemented, its API is an exact clone of Mail::Thread. Please see that module's documentation for API details. Just mentally substitute Email::Thread everywhere you see Mail::Thread and Email::Thread::Container where you see Mail::Thread::Container.

THANKS

Simon Cozens (SIMON) for encouraging me to release it, and for Email::Simple and Mail::Thread.

Richard Clamp (RCLAMP) for the header patch.

SUPPORT

Support for this module is provided via the CPAN RT system. This means, if you have a problem, go to the URL below, or email the email address below:

http://perl.dellah.org/rt/emailthread
bug-email-thread@rt.cpan.org

This makes it much easier for me to track things and thus means your problem is less likely to be neglected.

LICENCE AND COPYRIGHT

Copyright © Iain Truskett, 2003. All rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the licences can be found in the Artistic and COPYING files included with this module.

AUTHOR

Iain Truskett <spoon@cpan.org>

SEE ALSO

perl, Mail::Thread, Email::Simple