filter_end

Called after all parts have been processed

sub filter_end ($) {
    my($entity) = @_;
    return if message_rejected();
    if (-s "INPUTMSG" < 100*1024) {
        my ($hits, $req, $names, $report) = spam_assassin_check();
        if ($hits >= $req) {
            # X-Spam-Score: 6.8 (******)
            my $score = "*" x int $hits;
            action_change_header("X-Spam-Score", "$hits ($score)");
        }
    }
}