Mail::Box::Search::SpamAssassin - select spam messages with Mail::SpamAssassin

 Mail::Box::Search::SpamAssassin
   is a Mail::Box::Search
   is a Mail::Reporter

 use Mail::Box::Manager;
 my $mgr    = Mail::Box::Manager->new;
 my $folder = $mgr->open('Inbox');

 my $spam = Mail::Box::Search::SpamAssassin->new;
 if($spam->search($message)) {...}

 my @msgs   = $filter->search($folder);
 foreach my $msg ($folder->messages)
 {   $msg->delete if $msg->label('spam');
 }

 my $spam2 = Mail::Box::Search::SpamAssassin
               ->new(deliver => 'DELETE');
 $spam2->search($folder);
 $mgr->moveMessages($spamfolder, $folder->messages('spam'));

Spam means unsollicited e-mail, and is as name derived from a Monty Python scatch. Although Monty Python is fun, spam is a pain: it needlessly spoils minutes of time from most people: telephone bills, overful mailboxes which block honest e-mail, and accidentally removal of honest e-mail which looks like spam. Spam is the pest of Internet.

Happily, Mail::Box can be used as spam filter, in combination with the useful Mail::SpamAssassin module (which must be installed separately). Each message which is searched is wrapped in a Mail::Message::Wrapper::SpamAssassin object.

The spam-assassin module version 2 is not really well adapted for Mail::Message objects, which will make this search even slower than spam-detection already is.

Mail::Box::Search::SpamAssassin->new(OPTIONS) Create a spam filter. Internally, a Mail::SpamAssassin object is maintained. Only the whole message can be searched; this is a limitation of the Mail::SpamAssassin module.

 Option         Defined in       Default      
 binaries       L<Mail::Box::Search>  <false>      
 decode         L<Mail::Box::Search>  <true>       
 delayed        L<Mail::Box::Search>  <true>       
 deleted        L<Mail::Box::Search>  <false>      
 deliver        L<Mail::Box::Search>  undef        
 in             L<Mail::Box::Search>  C<'MESSAGE'> 
 label                           c<'spam'>    
 limit          L<Mail::Box::Search>  C<0>         
 log            L<Mail::Reporter>  C<'WARNINGS'>
 logical        L<Mail::Box::Search>  C<'REPLACE'> 
 multiparts     L<Mail::Box::Search>  <true>       
 rewrite_mail                    <true>       
 sa_options                      C<{ }>       
 spam_assassin                   undef        
 trace          L<Mail::Reporter>  C<'WARNINGS'>

 my $filter = Mail::Box::Search::SpamAssassin
               ->new( found => 'DELETE' );

$obj->assassinator Returns the internally maintained assassinator object. You may want to reach this object for complex configuration.

$obj->inBody(PART, BODY) See Searching in Mail::Box::Search

$obj->inHead(PART, HEAD) See Searching in Mail::Box::Search

$obj->search(FOLDER|THREAD|MESSAGE|ARRAY-OF-MESSAGES) See Searching in Mail::Box::Search

$obj->searchPart(PART) See Searching in Mail::Box::Search

$obj->printMatch([FILEHANDLE], HASH) See The Results in Mail::Box::Search

$obj->AUTOLOAD See Error handling in Mail::Reporter

$obj->addReport(OBJECT) See Error handling in Mail::Reporter

$obj->defaultTrace([LEVEL]|[LOGLEVEL, TRACELEVEL]|[LEVEL, CALLBACK])

Mail::Box::Search::SpamAssassin->defaultTrace([LEVEL]|[LOGLEVEL, TRACELEVEL]|[LEVEL, CALLBACK]) See Error handling in Mail::Reporter

$obj->errors See Error handling in Mail::Reporter

$obj->log([LEVEL [,STRINGS]])

Mail::Box::Search::SpamAssassin->log([LEVEL [,STRINGS]]) See Error handling in Mail::Reporter

$obj->logPriority(LEVEL)

Mail::Box::Search::SpamAssassin->logPriority(LEVEL) See Error handling in Mail::Reporter

$obj->logSettings See Error handling in Mail::Reporter

$obj->notImplemented See Error handling in Mail::Reporter

$obj->report([LEVEL]) See Error handling in Mail::Reporter

$obj->reportAll([LEVEL]) See Error handling in Mail::Reporter

$obj->trace([LEVEL]) See Error handling in Mail::Reporter

$obj->warnings See Error handling in Mail::Reporter

$obj->DESTROY See Cleanup in Mail::Reporter

$obj->inGlobalDestruction See Cleanup in Mail::Reporter

Error: Package CW$package does not implement CW$method.

Fatal error: the specific package (or one of its superclasses) does not implement this method where it should. This message means that some other related classes do implement this method however the class at hand does not. Probably you should investigate this and probably inform the author of the package.

See the MailBox website at <http://perl.overmeer.net/mailbox/> for more details.

Distribution version 2.063. Written by Mark Overmeer (mark@overmeer.net). See the ChangeLog for other contributors.

Copyright (c) 2001-2003 by the author(s). All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.