reduce bells, be more silent

diff --git a/My-Audit.pm b/My-Audit.pm
index 34615f5..d9e50ee 100644 (file)
--- a/My-Audit.pm
+++ b/My-Audit.pm
@@ -89,7 +89,7 @@ sub audit
 
        # nasty public lists with $store_ignore
        {
-               local $store_profile="bell";
+               local $store_profile="log";
                local $store_ignore;
                $store_ignore="smsmail"    if 1==$Audit->body() && length(join "",$Audit->body())<180;  # SMS mail
                $store_ignore="sms OS"     if $Audit->subject()=~/^Email pro: /;        # "^Email pro: gsm@sh\.cvut\.cz$";
@@ -121,14 +121,14 @@ sub audit
        store "=hw","log"            if headeris "List-Post",'<hw-news@list.gin.cz>';
        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 "=wined","silent"      if headeris "List-Id"  ,'<wine-devel.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","log"     if headeris "List-Post",'<ros-kernel@reactos.com>';
        store "=roscvs","silent"     if headeris "List-Post",'<ros-cvs@reactos.com>';
-       store "=rosbug","bell"       if headeris "Reply-To" ,'<scarab@reactos.wox.org>';
+       store "=rosbug","log"        if headeris "Reply-To" ,'<scarab@reactos.wox.org>';
        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>';
@@ -149,8 +149,8 @@ sub audit
        store "=sourceforge","bell"  if headeris "From"     ,'<noreply@sourceforge.net>';
        store "=gsmperlcvs","silent" if headeris("From"     ,'<johan@intra.tektonica.com>')
                                        && $Audit->subject()=~/^'.*' has been updated!$/;
-       store "=libtoold","bell"     if headeris "List-Id"  ,'<libtool.gnu.org>';
-       store "=libtoolpat","bell"   if headeris "List-Id"  ,'<libtool-patches.gnu.org>';
+       store "=libtoold","log"      if headeris "List-Id"  ,'<libtool.gnu.org>';
+       store "=libtoolpat","log"    if headeris "List-Id"  ,'<libtool-patches.gnu.org>';
        # own webs
        store "=energie","bell"      if headeris "From"     ,qr/^EnergieWeb/;