From: short <>
Date: Mon, 7 Oct 2002 15:19:39 +0000 (+0000)
Subject: "=tacacsd"
X-Git-Tag: bp_lace~100
X-Git-Url: https://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=991fa5bfbdc7a0aecf47d1d13be2ce97547c7f94;hp=cbf4cdfa925922fdb11c8d18e4d75fe6a24a1800

"=tacacsd"
&audit_sms: attributions: relaxed
---

diff --git a/My-Audit.pm b/My-Audit.pm
index c81515e..45c202c 100644
--- a/My-Audit.pm
+++ b/My-Audit.pm
@@ -121,6 +121,7 @@ sub audit
 	store "=surprise","sms"      if headeris "List-Post",'<surprise@atrey.karlin.mff.cuni.cz>';
 	store "=surprisesuse","sms"  if headeris "Sender"   ,'<owner-surprise@suse.cz>';
 	store "=tacacs","log"        if headeris "Sender"   ,'<tacplus-l@disaster.com>';
+	store "=tacacsd","log"       if headerhas \&Received_for,'devel@tacplus.org';	# TODO: fix when real list
 	store "=pm","sms"            if headeris "Sender"   ,'<owner-prague-pm@pm.org>';
 	store "=radary","sms"        if headeris "Reply-To" ,'<pha@radary.cz>';
 	store "=dnet","log"          if headeris "Sender"   ,'<@lists.distributed.net>';
@@ -166,7 +167,7 @@ my(%args)=@_;
 	s/^\s*[>][>\s]*.*$/*/gm;
 	s/(?:^|\n)(?:\*\n+)+/\n*\n/gs;
 	# attributions
-	s/^On.*\b(?:wrote|writes):\s*$//gm;
+	s/^.*\b(?:wrote|writes):\s*$//gm;
 
 	return [$from,"(".$args{"subject"}.")".$_];
 }