=spam: Updates.

[PerlMail.git] / PerlMail / Config.pm

diff --git a/PerlMail/Config.pm b/PerlMail/Config.pm
index 435a3f4..e48a813 100644 (file)
--- a/PerlMail/Config.pm
+++ b/PerlMail/Config.pm
@@ -290,6 +290,10 @@ 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>';
+               store "=spam"         if headeris "From",'<newsletter@thecareernews.com>';
+               store "=spam"         if headeris "From",'<newsletter@jobseekerweekly.com>';
+               store "=spam"         if headeris "From",'<newsletter@jobmarketweekly.com>';
+               store "=spam"         if headeris "From",'<newsletter@career-digest.com>';
                for my $header (qw(To Cc)) {
                        store "=spam" if headerhas $header,'<st@jankratochvil.net>';
                        store "=spam" if headerhas $header,'<est@jankratochvil.net>';
@@ -307,6 +311,8 @@ sub audit
 
        # spam detection
        return if did sub {
+               # It is too expensive to scan the huge =caperr announcements by spamassassin(1).
+               return if headeris("From",qr/^captive-[a-z]*@/);
                # Do not local $store_file as it is our-imported
                $store_profile="log";
                local $_;
@@ -441,6 +447,9 @@ sub audit
        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 "=saintjk","log"       if headeris "From"     ,'<nagios@gw.jklabs.cz>';
+       store "=saintjk2","log"      if headeris("From"     ,'<jklabs@manon.vellum.cz>')
+                                    && headeris("To"       ,'<jklabs-nagios@jankratochvil.net>');
        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>';
@@ -454,6 +463,10 @@ sub audit
        store "=autoconf","log"      if headeris "List-Id"  ,'<autoconf.gnu.org>';
        store "=autoconfpat","log"   if headeris "List-Id"  ,'<autoconf-patches.gnu.org>';
        store "=hurd","log"          if headeris "List-Id"  ,'<l4-hurd.gnu.org>';
+       store "=gccbug","silent"     if headeris "List-Post",'<gcc-bugs@gcc.gnu.org>';
+       store "=gccann","log"        if headeris "List-Post",'<gcc-announce@gcc.gnu.org>';
+       store "=gcc","silent"        if headeris "List-Post",'<gcc@gcc.gnu.org>';
+       store "=gccpat","silent"     if headeris "List-Post",'<gcc-patches@gcc.gnu.org>';
        my %mailman=(
                        '<captive-admin@>'=>"=caperr",
                        '<captive-devel-admin@>'=>"=caperr",
@@ -484,6 +497,7 @@ sub audit
        store "=i4l","silent"        if headeris "List-Id"  ,'<isdn4linux.listserv.isdn4linux.de>';
        store "=glibc","silent"      if headeris "List-Post",'<libc-alpha@sourceware.org>';
        store "=fedann","bell"       if headeris "List-Id"  ,'<fedora-announce-list.redhat.com>';
+       store "=fedpkg","bell"       if headeris "List-Id"  ,'<fedora-package-announce.redhat.com>';
        store "=fedtools","log"      if headeris "List-Id"  ,'<fedora-tools-list.redhat.com>';
        store "=bashbug","log"       if headeris "List-Id"  ,'<bug-bash.gnu.org>';
        store "=zaurus","silent"     if headeris "List-Id"  ,'<openzaurus-users.lists.sourceforge.net>';
@@ -507,6 +521,18 @@ sub audit
        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>';
+       store "=qemud","log"         if headeris "List-Id"  ,'<qemu-devel.nongnu.org>';
+       store "=diamond","log"       if headeris "X-Replicator-Inst",'"www.diamondcard.us"';
+       store "=soap","log"          if headeris "Sender"   ,'<owner-soap@DISCUSS.DEVELOP.COM>';
+       store "=nagiosd","log"       if headeris "List-Id"  ,'<nagios-devel.lists.sourceforge.net>';
+       store "=nagios","log"        if headeris "List-Id"  ,'<nagios-users.lists.sourceforge.net>';
+       store "=grub","log"          if headeris "List-Id"  ,'<grub-devel.gnu.org>';
+       store "=gdb","log"           if headeris "Mailing-List",'contact gdb-help@sourceware.org; run by ezmlm';
+       store "=gdbpr","log"         if headeris "Mailing-List",'contact gdb-prs-help@sourceware.org; run by ezmlm';
+       store "=gdbpat","log"        if headeris "Mailing-List",'contact gdb-patches-help@sourceware.org; run by ezmlm';
+       store "=gdbann","log"        if headeris "Mailing-List",'contact gdb-announce-help@sourceware.org; run by ezmlm';
+       store "=binutils","log"      if headeris "Mailing-List",'contact binutils-help@sourceware.org; run by ezmlm';
+       store "=binutilsbug","log"   if headeris "List-Id"  ,'<bug-binutils.gnu.org>';
 
        # Petr Koutecky does not mark his Stuff
        store "=koutecky","log"      if headeris "Return-Path",'<velkyhroch@seznam.cz>';