From 0bb3fce39ce6c1f220de832e721f64c53449088c Mon Sep 17 00:00:00 2001
From: lace <>
Date: Mon, 17 Jul 2006 15:55:31 +0000
Subject: [PATCH] =spam: Updates. =caperr: Avoid spamassassin(1).
 +=saintjk,=saintjk2 +=gccbug,=gccann,=gcc,=gccpat +=fedpkg +=qemud +=diamond
 +=soap +=nagiosd +=nagios +=grub +=gdb +=gdbpr +=gdbpat +=gdbann +=binutils
 +=binutilsbug

---
 PerlMail/Config.pm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/PerlMail/Config.pm b/PerlMail/Config.pm
index 435a3f4..e48a813 100644
--- 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>';
-- 
1.8.3.1