From: short <>
Date: Wed, 11 Dec 2002 13:40:58 +0000 (+0000)
Subject: reduce bells, be more silent
X-Git-Tag: bp_lace~70
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=a891db31bc713711dc6503e8622f8249fd8a6371

reduce bells, be more silent
---

diff --git a/My-Audit.pm b/My-Audit.pm
index 34615f5..d9e50ee 100644
--- 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/;