From: short <>
Date: Mon, 3 Mar 2003 12:00:36 +0000 (+0000)
Subject: +=ats
X-Git-Tag: bp_lace~65
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=cc8901bc5751c88150b4529d23518ca30b28ea12

+=ats
+=atscasablanca
+comment: FIXME: modifications are now being dropped by &write_message!
---

diff --git a/My-Audit.pm b/My-Audit.pm
index 4bcb2ed..1097bfd 100644
--- a/My-Audit.pm
+++ b/My-Audit.pm
@@ -80,6 +80,7 @@ sub audit
 	store "=err","bell" and return if headerhas \&Received_for,'<short+err@>';
 
 	# ppl-wished foreign remapping, Reply-To is left untouched!
+	# FIXME: modifications are now being dropped by &write_message!
 	header_remap("From",{
 			'kerere@post.cz'               =>'kamzik@k332.feld.cvut.cz',
 			'profes@mbox.vol.cz'           =>'kratochvilova@egp.cz',
@@ -161,6 +162,8 @@ 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>';
 
 	# Petr Koutecky does not mark his Stuff
 	store "=koutecky","log"      if headeris "From"     ,'<velkyhroch@seznam.cz>';