Generally more quiet

[PerlMail.git] / My-Audit.pm

diff --git a/My-Audit.pm b/My-Audit.pm
index 405f40e..79ee8a1 100644 (file)
--- a/My-Audit.pm
+++ b/My-Audit.pm
@@ -4,7 +4,7 @@ sub audit_init
 {
        %audit_profile=(
                        "btw"   =>[],
-                       "silent"=>["=btw"   ,"did","syslog"],
+                       "silent"=>["=btw"   ,"did"],
                        "log"   =>["=silent","syslog"],
                        "bell"  =>["=log"   ,"bell"],
                        "sms"   =>["=bell"  ,"sms=1"],
@@ -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
@@ -98,6 +93,7 @@ sub audit
                                <satko@quanto.nr.sanet.sk>
                                <vithous@attorney.cz> <viroman@attorney.cz>
                                <konf@klain.cz>
+                               <stein@tiscali.cz>
                                );
 
                store "=gsm"               if headeris  "Sender"   ,'<owner-gsm@sh.cvut.cz>';
@@ -114,20 +110,22 @@ sub audit
        store "=gtkd","log"          if headeris "List-Id"  ,'<gtk-devel-list.gnome.org>';
        store "=mffstatnice","bell"  if headeris "List-Post",'<statnice@atrey.karlin.mff.cuni.cz>';
        store "=hw","log"            if headeris "List-Post",'<hw-news@list.gin.cz>';
-       store "=gnokii","bell"       if headeris "List-Id"  ,'<gnokii-users.mail.freesoftware.fsf.org>';
+       store "=gnokii","log"        if headeris "List-Id"  ,'<gnokii-users.mail.freesoftware.fsf.org>';
        store "=winelic","log"       if headeris "List-Id"  ,'<wine-license.winehq.com>';
        store "=wined","log"         if headeris "List-Id"  ,'<wine-devel.winehq.com>';
-       store "=winepat","log"       if headeris "List-Id"  ,'<wine-patches.winehq.com>';
+       store "=winepat","silent"    if headeris "List-Id"  ,'<wine-patches.winehq.com>';
        store "=winecvs","silent"    if headeris "List-Id"  ,'<wine-cvs.winehq.com>';
+       store "=wineann","log"       if headeris "List-Id"  ,'<wine-announce.winehq.com>';
        store "=ros","log"           if headeris "List-Post",'<ros-general@reactos.com>';
-       store "=roskernel","bell"    if headeris "List-Post",'<ros-kernel@reactos.com>';
+       store "=roskernel","log"     if headeris "List-Post",'<ros-kernel@reactos.com>';
        store "=roscvs","silent"     if headeris "List-Post",'<ros-cvs@reactos.com>';
        store "=fsd","log"           if headeris "X-Mailing-List",'<linux-fsdevel@vger.kernel.org>';
        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 "=radary","log"        if headeris "Reply-To" ,'<pha@radary.cz>';
        store "=dnet","log"          if headeris "Sender"   ,'<@lists.distributed.net>';
        store "=linux-input","log"   if headeris "List-Post",'<linux-input@atrey.karlin.mff.cuni.cz>';
        store "=strom","bell"        if headeris "List-Post",'<vodni-strom@atrey.karlin.mff.cuni.cz>';
@@ -137,13 +135,14 @@ sub audit
        store "=4cerr","bell"        if headeris "From"     ,'<owner-4cinfo@atrey.karlin.mff.cuni.cz>';
        store "=4c","sms"            if headeris "List-Post",'<4cinfo@atrey.karlin.mff.cuni.cz>';
        store "=slashdot","bell"     if headeris "From"     ,'<slashdot@slashdot.org>';
+       store "=freshmeat","bell"    if headeris "From"     ,'<noreply@freshmeat.net>';
        store "=gsmperlcvs","silent" if headeris("From"     ,'<johan@intra.tektonica.com>')
                                        && $Audit->subject()=~/^'.*' has been updated!$/;
        # own webs
        store "=energie","bell"      if headeris "From"     ,qr/^EnergieWeb/;
 
        # Petr Koutecky does not mark his Stuff
-       store "=koutecky","bell"     if headeris "From"     ,'<velkyhroch@seznam.cz>';
+       store "=koutecky","log"      if headeris "From"     ,'<velkyhroch@seznam.cz>';
 
        store "=errm","bell"         if $isFROM_MAILER && !did();
 
@@ -170,7 +169,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"}.")".$_];
 }