*** empty log message ***

diff --git a/PerlMail/Config.pm b/PerlMail/Config.pm
index 2c6c559..8be89b1 100644 (file)
--- 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();