Re: A Beginner's Guide to Using Mail::Audit and Mail::SpamAssassin

[thecap]

SpamAssassin is dropping support for Mail::Audit. :-(

I think we will need to change the way we call SA from Mail::Audit scripts to something like the following UNTESTED code:

# Catch spam
my $spamtest = Mail::SpamAssassin->new( );
my $status = $spamtest->check($mail);
my $sa_mail_obj = $status->rewrite_mail ();

# Fix needed with SA 2.70
$mail = Mail::Audit->new( data => $sa_mail_obj->get_pristine() );

if( $status->is_spam() )
{
  $mail->accept(MAIL_DIR.'Lists/JunkSpamAssassin');
}

updated 2004-02-04

The author of Mail::Audit stopped supporting it and released Email::Filter.