"=tacacsd"

&audit_sms: attributions: relaxed

diff --git a/My-Audit.pm b/My-Audit.pm
index c81515e..45c202c 100644 (file)
--- 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"}.")".$_];
 }