Fixed (suppressed) bell if $store_ignore

[PerlMail.git] / My-Audit.pm

diff --git a/My-Audit.pm b/My-Audit.pm
index 20ffb81..45c202c 100644 (file)
--- a/My-Audit.pm
+++ b/My-Audit.pm
@@ -23,11 +23,6 @@ sub audit_init
 
 sub audit
 {
-       {
-               local $store_ignorenewmail=1;   # no reason now, just a paranoia
-               store "=input","btw";
-               }
-
        # TODO: <short-m@> storage?
 
        # never spawn new mail if FROM_MAILER
@@ -126,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>';
@@ -171,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"}.")".$_];
 }