From: short <>
Date: Fri, 21 Feb 2003 23:27:06 +0000 (+0000)
Subject: Prevent some multi-folder storing of common spam
X-Git-Tag: bp_lace~67
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=815d559db331524d589531a8add62fec0f359ea2

Prevent some multi-folder storing of common spam
---

diff --git a/My-Audit.pm b/My-Audit.pm
index 8bb5d6c..d3e4013 100644
--- 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';
 		};