# 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'); }