From: short <>
Date: Thu, 20 Oct 2005 02:51:13 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=1ae93f0848fc9f0876745b810209e6bd0883246d

*** empty log message ***
---

diff --git a/PerlMail/Config.pm b/PerlMail/Config.pm
index 2c6c559..8be89b1 100644
--- a/PerlMail/Config.pm
+++ b/PerlMail/Config.pm
@@ -290,6 +290,12 @@ sub audit
 		store "=spam"         if headeris "From",'<e4luck@lists.opt4email.com>';
 		store "=spam"         if headeris "From",'<mailcontests@lists.servitall.com>';
 		store "=spam"         if headeris "From",'<canda@lica.cz>';
+		for my $header (qw(To Cc)) {
+			store "=spam" if headerhas $header,'<st@jankratochvil.net>';
+			store "=spam" if headerhas $header,'<est@jankratochvil.net>';
+			store "=spam" if headerhas $header,'<uest@jankratochvil.net>';
+			store "=spam" if headerhas $header,'<kratochvil.net@jankratochvil.net>';
+			}
 		{
 			# weak detection: files with text/html w/o text/plain are usually a spam
 			my @types_linear=map({ mime_type($_); } parts_linear());
@@ -331,6 +337,7 @@ sub audit
 					www.rp-online.de
 					www.spiegel.de
 					www.taz.de
+					www.unserforum.com
 					www.zdf.de
 					));
 			my $found;
@@ -383,7 +390,7 @@ sub audit
 				<barevnej@volny.cz>
 				);
 
-		store "=gsm"               if headeris  "Sender"   ,'<owner-gsm@sh.cvut.cz>';
+		store "=gsm"               if headeris  "X-BeenThere",'<gsm@lists.sh.cvut.cz>';
 		store "=gsmpand"           if headeris  "List-Post",'<gsm@pandora.cz>';
 		store "=9kc","log"         if headeris  "List-Post",'<n9k@pandora.cz>';
 		store "=9kcd","log"        if headeris  "List-Post",'<dev9k@pandora.cz>';
@@ -431,7 +438,8 @@ sub audit
 	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>';
 	store "=netinfo","log"       if headeris "Sender"   ,'<owner-netinfo-l@vol.cz>';
-	store "=saintmj","log"       if headeris "From"     ,'<netsaint@kam-enterprise.ms.mff.cuni.cz>';
+	store "=saintmj","log"       if headeris "From"     ,'<nagios@kam-enterprise.ms.mff.cuni.cz>';
+	store "=saintmj","log"       if headeris "From"     ,'<nagios@kam.mff.cuni.cz>';
 	store "=saintmj","log"       if headeris "From"     ,'<netsaint@kam.mff.cuni.cz>';
 	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>';
@@ -469,7 +477,8 @@ sub audit
 	store "=ntfsann","silent"    if headeris "List-Id"  ,'<linux-ntfs-announce.lists.sourceforge.net>';
 	store "=ntfsd","silent"      if headeris "List-Id"  ,'<linux-ntfs-dev.lists.sourceforge.net>';
 	store "=orbit","silent"      if headeris "List-Id"  ,'<orbit-list.gnome.org>';
-	store "=kand","log"          if headeris "List-Id"  ,'<devel.kannel.org>';
+	store "=kannel","log"        if headeris "List-Id"  ,'<users.kannel.org>';
+	store "=kanneld","log"       if headeris "List-Id"  ,'<devel.kannel.org>';
 	store "=mailmand","silent"   if headeris "List-Id"  ,'<mailman-developers.python.org>';
 	store "=asterisk-perl","log" if headeris "List-Post",'<asterisk-perl@lists.gnuinter.net>';
 	store "=i4l","silent"        if headeris "List-Id"  ,'<isdn4linux.listserv.isdn4linux.de>';
@@ -492,14 +501,21 @@ sub audit
 	store "=mms2log","log"       if headeris "Return-Path",'<root@node0.mms2.org>';
 	store "=hotelgatelog","log"  if headeris "Return-Path",'<root@hotelgate.hotelnet>';
 	store "=imja","log"          if headeris "List-Id"  ,'<im-ja-devel.lists.sourceforge.net>';
+	store "=wince","log"         if headeris "List-Post",'<wince@pandora.cz>';
+	store "=mysqlperl","log"     if headeris "List-Id"  ,'<perl.mysql.com>';
+	store "=whiteann","log"      if headeris "List-Id"  ,'<whitebox-announce.beau.org>';
+	store "=white","log"         if headeris "List-Id"  ,'<whitebox-users.beau.org>';
+	store "=centos","log"        if headeris "List-Id"  ,'<centos.centos.org>';
+	store "=modperldoc","log"    if headeris "List-Id"  ,'<docs-dev.perl.apache.org>';
 
 	# Petr Koutecky does not mark his Stuff
 	store "=koutecky","log"      if headeris "Return-Path",'<velkyhroch@seznam.cz>';
 	store "=koutecky","log"      if headeris "Return-Path",'<pk.petr@centrum.cz>';
 	store "=koutecky","log"      if headeris "Return-Path",'<petr.koutecky@premisa.cz>';
+	store "=koutecky","log"      if headeris "Return-Path",'<Petr.Koutecky@pr4.pm.ds.mfcr.cz>';
 
 	if (($isFROM_MAILER && !did) || !did) {
-		lmtp_deliver $lmtp_admin,$lmtp_pwd,$lmtp_user_from,$lmtp_user_to;
+#		lmtp_deliver $lmtp_admin,$lmtp_pwd,$lmtp_user_from,$lmtp_user_to;
 		}
 
 	store "=errm","bell"         if $isFROM_MAILER && !did();