Prevent some multi-folder storing of common spam

[PerlMail.git] / My-Audit.pm

diff --git a/My-Audit.pm b/My-Audit.pm
index 8bb5d6c..d3e4013 100644 (file)
--- a/My-Audit.pm
+++ b/My-Audit.pm
@@ -63,11 +63,15 @@ sub audit
        return if did sub {
                local $store_profile="silent";
                local $_;
+               store "=spam-razor".($_ eq 1 ? "" : ";$_")      if $_=razor2();
+               };
+       return if did sub {
+               local $store_profile="silent";
+               local $_;
                store "=spam-orbs"                 .";$_","log" if $_=dnsbl '.relays.ordb.org.' ,1;     # all hosts
                store "=spam-abuse"                .";$_","log" if $_=dnsbl '.blackholes.mail-abuse.org.' ,1;   # all hosts
                # we don't check all hosts as they can be "dialup" category, FIXME: check for it
                store "=spam-five"                 .";$_","log" if $_=dnsbl '.blackholes.five-ten-sg.com.',0; # just first
-               store "=spam-razor".($_ eq 1 ? "" : ";$_")      if $_=razor2();
                # I don't send viruses but viruses propagate mails of mine
                store "=spam-av"                                if headeris "X-Mailer",'ravmd/8.3.2';
                };