re-enable SMSes back again

[PerlMail.git] / My-Audit.pm

diff --git a/My-Audit.pm b/My-Audit.pm
index 9bc0fbc..352ff9d 100644 (file)
--- a/My-Audit.pm
+++ b/My-Audit.pm
@@ -163,8 +163,9 @@ sub audit
        store "=libtoolpat","log"    if headeris "List-Id"  ,'<libtool-patches.gnu.org>';
        # own webs
        store "=energie","bell"      if headeris "From"     ,qr/^EnergieWeb/;
-       store "=ats","bell"          if headeris "From"     ,'<root@ms.atspraha.cz>';
-       store "=atscasablanca","sms" if headeris "From"     ,'<casablanca@ms.atspraha.cz>';
+       store "=ats","log"           if headeris("From"     ,'<root@ms.atspraha.cz>')
+                                       || (headeris("From",'<online@ringier.cz>') && headerhas("To",'<blesk@atspraha.cz>'));
+       store "=atscasablanca","log" if headeris "From"     ,'<casablanca@ms.atspraha.cz>';
 
        # Petr Koutecky does not mark his Stuff
        store "=koutecky","log"      if headeris "From"     ,'<velkyhroch@seznam.cz>';