X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=PerlMail%2FConfig.pm;h=52bc3f852a9bcc9b961a80f663873a456a626515;hb=refs%2Fheads%2Flace;hp=9f6f36cb2e748758c169afd526b9a78b0d82e395;hpb=74c6cab08ed52a377640693a7f142705543f40fa;p=PerlMail.git

diff --git a/PerlMail/Config.pm b/PerlMail/Config.pm
index 9f6f36c..52bc3f8 100644
--- a/PerlMail/Config.pm
+++ b/PerlMail/Config.pm
@@ -31,6 +31,7 @@ use vars qw(@ISA @EXPORT);
 		$HOME
 		$Mail @ValidUsers $IdleMax $MaxBodySMS @SMSwebRcpt $SMSwebRcpt_username
 		$Lock_pathname $PeerAddr $Socket_timeout $DB_table $DBI_database $DBI_user $DBI_pwd
+		$clamscan_waitpid_timeout
 		$sendmail_orig @addr_addon &FromAddress @h_rcpt @h_from
 		%audit_profile @sms_squeezes @alternates_host @dnsbl_whitelist
 
@@ -39,11 +40,12 @@ use vars qw(@ISA @EXPORT);
 		);
 
 require Mail::Alias;
+use Carp qw(confess cluck);
 
 
 BEGIN {
-	for (qw(headerhas store headeris did dnsbl store_muttrc_alternates Received_for parts_linear mime_type
-			body_first mimehead razor2 header_remap)) {
+	for (qw(headerhas writeto store headeris did dnsbl store_muttrc_alternates Received_for parts_linear mime_type
+			body_first body_simple is_multipart mimehead mimebody spamassassin clamscan header_remap)) {
 		eval 'sub '.$_.' { return ::'.$_.'(@_); }';
 		}
 	}
@@ -69,6 +71,7 @@ our $MaxBodySMS=0x1000;
 our @SMSwebRcpt=qw(420 602 431329);
 # Some WWW::SMS modules require username:
 our $SMSwebRcpt_username="lace2";
+our $clamscan_waitpid_timeout=3;
 
 
 # perlmail-submit
@@ -76,7 +79,7 @@ our $SMSwebRcpt_username="lace2";
 # Global system lock for exclusive $DB_table access:
 our $Lock_pathname="/tmp/PerlMail.lock";
 # 'workstation' hostname and port. Hostname may be dyndns:
-our $PeerAddr="exuhome.dyn.jankratochvil.net.:852";
+our $PeerAddr="kashome.dyn.jankratochvil.net.:852";
 #our $PeerAddr="127.0.0.1:2852";
 # 15sec is NOT enough as the remote peer must complete mail store:
 our $Socket_timeout=7600;
@@ -87,7 +90,7 @@ our $DBI_database="short";
 # MySQL user name:
 our $DBI_user="short";
 # MySQL user password:
-our $DBI_pwd=$ENV{"HOME"}."/priv/mysql.".$DBI_user.".pwd";
+our $DBI_pwd=$HOME."/priv/mysql.".$DBI_user.".pwd";
 
 
 # perlmail-sendmail
@@ -96,19 +99,17 @@ our $DBI_pwd=$ENV{"HOME"}."/priv/mysql.".$DBI_user.".pwd";
 my @lists=qw(
 		tacplus-l@disaster.com
 		gsm@sh.cvut.cz
-		linux-fsdevel@vger.kernel.org
 		n9k@pandora.cz
 		dev9k@pandora.cz
 		gsm@pandora.cz
 		ros-general@reactos.com
 		ros-kernel@reactos.com
+		ros-dev@reactos.com
 		ros-cvs@reactos.com
 		4cinfo@atrey.karlin.mff.cuni.cz
 		libtool@gnu.org
 		libtool-patches@gnu.org
 		wine-license@winehq.org
-		wine-devel@winehq.org
-		wine-patches@winehq.org
 		gtk-devel-list@gnome.org
 		gnome-vfs-list@gnome.org
 		captive-announce-list@jankratochvil.net
@@ -123,9 +124,15 @@ my @lists=qw(
 		autoconf-patches@gnu.org
 		wget-patches@sunsite.dk
 		wget@sunsite.dk
-		mailman-developers@python.org
 		wineconf@winehq.org
+		prague-pm@pm.org
+		dev@httpd.apache.org
+		asterisk-perl@lists.gnuinter.net
+		isdn4linux@listserv.isdn4linux.de
+		libc-alpha@sources.redhat.com
+		squid-dev@squid-cache.org
 		);
+		#4c-list@vellum.cz
 
 # Pathname of the original sendmail(8) binary:
 our $sendmail_orig=(-x ($_="/usr/sbin/sendmail-orig") ? $_ : "/usr/sbin/sendmail");
@@ -200,7 +207,7 @@ our @h_from=(
 # 'bell'   =>Bell sound.
 # 'sms=\d+'=>Send SMS by WWW::SMS with specified maximum # of parts
 our %audit_profile=(
-		"btw"   =>[],
+		"btw"   =>["syslog"],
 		"silent"=>["=btw"   ,"did"],
 		"log"   =>["=silent","syslog"],
 		"bell"  =>["=log"   ,"bell"],
@@ -237,8 +244,27 @@ our @dnsbl_whitelist=(
 		"64.110.204.63",	# hsdbrg64-110-204-63.sasknet.sk.ca: 64.110.202.181.sasknet.sk.ca.misc.spam.blackholes.five-ten-sg.com.
 		"212.80.76.44",		# mx1.seznam.cz: 44.76.80.212.blackholes.five-ten-sg.com.
 		"212.80.76.29",		# prace.seznam.cz: 212.80.76.42.seznam.cz.free.blackholes.five-ten-sg.com
+		"193.252.22.30",	# smtp1.wanadoo.fr: 30.22.252.193.blackholes.five-ten-sg.com
+		"213.151.87.16",	# posta.dobnet.cz: 16.87.151.213.relays.ordb.org
 		);
 
+sub dolist
+{
+	my($list)=@_;
+
+	my $mailed=0;
+	for my $alias ("",qw(admin bounces confirm join leave owner request subscribe unsubscribe)) {
+		my $head=$list.($alias?"-$alias":"");
+		my $mail=$head.'@jankratochvil.net';
+		if (headerhas("To",$mail)||headerhas("Cc",$mail)) {
+			writeto "|/usr/lib64/mailman/mail/lace/mailmanlace ".($alias||"post")." $list";
+			###writeto "|/usr/sbin/sendmail $head".'@localhost.localdomain';
+			$mailed++;
+		}
+	}
+	return $mailed;
+}
+
 our $Audit;	# imported
 our $procmailFROM_MAILER;	# imported
 our $store_ignorenewmail;	# imported
@@ -247,7 +273,6 @@ our $store_ignore;	# imported
 sub audit
 {
 	$store_profile=undef();
-	# TODO: <short-m@> storage?
 
 	# never spawn new mail if FROM_MAILER
 	# $isFROM_MAILER postponed after maillists as they may look as FROM_MAILER
@@ -258,9 +283,22 @@ sub audit
 			|| headerhas "From",'<Regexp:^owner->'
 			);
 
+	return if did sub { store "=spy","log" if headeris "From",'<spy@jankratochvil.net>'; };
+
+	return if did sub { store "=hotelgatespam","log" if headeris("To",'<postmaster@hotelgate.hotelnet>'); };
+
+	# whitelist
+	my $whitelist;
+	$whitelist||=headeris("From",'<amapi11@seznam.cz>');
+	$whitelist||=headeris("From",'<llucie0@seznam.cz>');
+	$whitelist||=headeris("From",'<aaaanetka@seznamka.cz>');
+	$whitelist||=headeris("From",'<luciseksieber@centrum.cz>');
+	$whitelist||=headeris("From",'<lagica@azet.sk>');
+
 	# spam honeypots
 	return if did sub {
 		local $_;
+		return if $whitelist;
 		# Do not local $store_file as it is our-imported
 		$store_profile="silent";
 		store "=spam"         if grep /^\Qshort\@k332.feld.cvut.cz\E/i,Received_for();
@@ -272,6 +310,24 @@ 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>';
+		store "=spam"         if $Audit->subject() eq "Virus intercepted"
+		                      && body_simple()=~/^A message sent from\s.*\sto\s.*\scontained .* and has not been delivered[.]$/;
+		store "=spam"         if headeris "From",'<supportmrswing@mrswing.com>';
+		store "=spam"         if headeris "From",'<mrswing@mrswing.com>';
+		store "=spam"         if headeris "From",'<root@filmcity.cz>';
+		store "=spam"         if headeris "To"  ,'<web-www.filmcity.cz@jankratochvil.net>';
+		# Whitelist - HTML.
+		return if headeris("From",'<oznameni@aukro.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());
@@ -281,25 +337,90 @@ sub audit
 		};
 	$store_profile=undef();
 
-	# spam detection
+	my %mailman=(
+			'<captive-admin@>'=>"=caperr",
+			'<captive-devel-admin@>'=>"=caperr",
+			'<captive-announce-admin@>'=>"=caperr",
+			'<4c-admin@>'=>"=4cerr",
+			);
 	return if did sub {
-		# Do not local $store_file as it is our-imported
-		$store_profile="silent";
-		local $_;
-		store "=spam".($_ eq 1 ? "" : ";$_")      if $_=razor2();
+		if (!did sub {
+				while ((my($mailaddr,$folder)=each(%mailman))) {
+					(my $maillistaddr=$mailaddr)=~s/-admin/-list$&/;
+					store $folder,"log" if (headeris("From",'<mailman-owner@vellum.cz>')&&headeris("To",$mailaddr))
+							|| headeris("From",$maillistaddr)
+							|| headeris("To",$maillistaddr)
+							|| headeris("From",$mailaddr);
+					}
+				}) {
+			store "=cap","bell"        if headeris "List-Id"  ,'<captive-list.jankratochvil.net>';
+			store "=capd","bell"       if headeris "List-Id"  ,'<captive-devel-list.jankratochvil.net>';
+			store "=capann","bell"     if headeris "List-Id"  ,'<captive-announce-list.jankratochvil.net>';
+			store "=4c","bell"         if headeris "List-Id"  ,'<4c-list.vellum.cz>';
+			}
 		};
-	$store_profile=undef();
+
+	{
+		my $mailed=0;
+		if ($Audit->header()!~/for <(?:4c|vmezihori1XXX)-(?:admin|owner|bounces)@/) {
+			for my $list qw(vmezihori1) {
+				$mailed+=dolist $list;
+			}
+		}
+		# return if $mailed;
+	}
+
+	# spam detection
 	return if did sub {
+		# It is too expensive to scan the huge =caperr announcements by spamassassin(1).
+		return if $whitelist;
+###		return if headeris("From",qr/^captive-[a-z]*@/);
+		return if headeris("From",'<logwatch@jankratochvil.net>');
 		# Do not local $store_file as it is our-imported
-		$store_profile="silent";
+		$store_profile="log";
 		local $_;
-		store "=spam"                      .";$_","log" if $_=dnsbl '.relays.ordb.org.' ,1;	# all hosts
-		store "=spam"                      .";$_","log" if $_=dnsbl '.blackholes.mail-abuse.org.' ,1;	# all hosts
+###		store "=spam".";virus=$_"            if $_=clamscan();
+		store "=spam".";spamassassin".($_ eq 1 ? "" : "=$_") if $_=spamassassin();
+# Down?
+###		store "=spam".";$_"                  if $_=dnsbl '.relays.ordb.org.' ,1;	# all hosts
+if (0) {
+		store "=spam".";$_"                  if $_=dnsbl '.blackholes.mail-abuse.org.' ,1;	# all hosts
 		# we don't check all hosts as they can be "dialup" category, FIXME: check for it
-		store "=spam"                      .";$_","log" if $_=dnsbl '.blackholes.five-ten-sg.com.',0; # just first
+#		store "=spam".";$_"                  if $_=dnsbl '.blackholes.five-ten-sg.com.',0; # just first
+}
 		# I don't send viruses but viruses propagate mails of mine
-		store "=spam"                                   if headeris "X-Mailer",'ravmd/8.3.2';
-		store "=spam"                                   if $isFROM_MAILER && headeris("To",'<short@ucw.cz>');
+		store "=spam".";ravmd"               if headeris "X-Mailer",'ravmd/8.3.2';
+		store "=spam".';short@ucw.cz+MAILER' if $isFROM_MAILER && headeris("To",'<short@ucw.cz>');
+		if (!is_multipart()) {
+			local $_=mimebody(body_first());
+			my %sites=map(($_=>1),qw(
+					brandenburg.rz.fhtw-berlin.de
+					forum.gofeminin.de
+					service.spiegel.de
+					www.aufenthaltstitel.de
+					www.berlinonline.de
+					www.deutschlandchronik.de
+					www.heise.de
+					www.leverkusener-aufbruch.com
+					www.libasoli.de
+					www.mjoelnirsseite.de
+					www.npd-nrw.net
+					www.npd.de
+					www.rp-online.de
+					www.spiegel.de
+					www.taz.de
+					www.unserforum.com
+					www.zdf.de
+					));
+			my $found;
+			while (m{http://([^/]+)/}g) {
+				do { $found=1; next; } if $sites{$1};
+				$found=0;
+				last;
+				}
+			$found=1 if /^\s*Lese selbst:\n/s;
+			store "=spam".';german-news' if $found;
+			}
 		};
 	$store_profile=undef();
 
@@ -341,13 +462,15 @@ 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>';
 		}
 	$store_profile=undef();
 
+	return                       if headeris "From"     ,'<surprise-dev-bounces@lists.sourceforge.net>';
+
 	# lists
 	store "=mozillabug","log"    if headeris "From"     ,'<bugzilla-daemon@mozilla.org>';
 	store "=9ku","log"           if headeris "List-Id"  ,'<9000.listman.net>';
@@ -358,31 +481,44 @@ sub audit
 	store "=mffstatnice","bell"  if headeris "List-Post",'<statnice@atrey.karlin.mff.cuni.cz>';
 	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.org>';
-	store "=wined","log"         if headeris "List-Id"  ,'<wine-devel.winehq.org>';
+	store "=winelic","silent"    if headeris "List-Id"  ,'<wine-license.winehq.org>';
+	store "=wined","silent"      if headeris "List-Id"  ,'<wine-devel.winehq.org>';
 	store "=winepat","silent"    if headeris "List-Id"  ,'<wine-patches.winehq.org>';
 	store "=winecvs","silent"    if headeris "List-Id"  ,'<wine-cvs.winehq.org>';
-	store "=wineann","log"       if headeris "List-Id"  ,'<wine-announce.winehq.org>';
-	store "=wineconf","log"      if headeris "List-Id"  ,'<wineconf.winehq.org>';
-	store "=ros","log"           if headeris "List-Id"  ,'<ros-general.reactos.com>';
-	store "=roskernel","log"     if headeris "List-Id"  ,'<ros-kernel.reactos.com>';
+	store "=wineann","silent"    if headeris "List-Id"  ,'<wine-announce.winehq.org>';
+	store "=wineconf","silent"   if headeris "List-Id"  ,'<wineconf.winehq.org>';
+	store "=ros","silent"        if headeris "List-Id"  ,'<ros-general.reactos.com>';
+	store "=roskernel","silent"  if headeris "List-Id"  ,'<ros-kernel.reactos.com>';
+	store "=rosd","silent"       if headeris "List-Id"  ,'<ros-dev.reactos.com>';
 	store "=roscvs","silent"     if headeris "List-Id"  ,'<ros-cvs.reactos.com>';
-	store "=rosbug","log"        if headeris "Reply-To" ,'<scarab@reactos.wox.org>';
+	store "=rossvn","silent"     if headeris "List-Id"  ,'<ros-svn.reactos.com>';
+	store "=rosbug","silent"     if headeris "Reply-To" ,'<scarab@reactos.wox.org>';
 	store "=fsd","silent"        if headeris "X-Mailing-List",'<linux-fsdevel@vger.kernel.org>';
-	store "=kerneld","silent"    if headeris "X-Mailing-List",'<linux-kernel@vger.kernel.org>';
+	store "=kernel","silent"     if headeris "X-Mailing-List",'<linux-kernel@vger.kernel.org>';
+	store "=kernelnet","silent"  if headeris "X-Mailing-List",'<linux-net@vger.kernel.org>';
+	store "=ia64","silent"       if headeris "X-Mailing-List",'<linux-ia64@vger.kernel.org>';
+	store "=linuxjap","silent"   if headeris "X-Mailing-List",'<linux-japanese@vger.kernel.org>';
+	store "=kernelann","silent"  if headeris "X-Mailing-List",'<linux-kernel-announce@vger.kernel.org>';
+	store "=sparse","silent"     if headeris "X-Mailing-List",'<linux-sparse@vger.kernel.org>';
+	store "=smp","silent"        if headeris "X-Mailing-List",'<linux-smp@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>';
-	store "=tacacs","log"        if headeris "Sender"   ,'<tacplus-l@disaster.com>';
-	store "=tacacs","log"        if headeris "Sender"   ,'<owner-tacplus-l@disaster.com>';
-	store "=tacacs","log"        if headeris "List-Id"  ,'<devel.lists.tacplus.org>';
-	store "=pm","log"            if headeris "Sender"   ,'<owner-prague-pm@pm.org>';
+	store "=tacacs","silent"     if headeris "Sender"   ,'<tacplus-l@disaster.com>';
+	store "=tacacs","silent"     if headeris "Sender"   ,'<owner-tacplus-l@disaster.com>';
+	store "=tacacs","silent"     if headeris "List-Id"  ,'<devel.lists.tacplus.org>';
+	store "=pm","log"            if headeris "List-Id"  ,'<prague-pm.pm.org>';
 	store "=radary","log"        if headeris "Reply-To" ,'<pha@radary.cz>';
 	store "=dnet","log"          if headeris "Sender"   ,'<@lists.distributed.net>';
 	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 "=saintjk","log"       if headeris "From"     ,'<nagios@gw.jklabs.cz>';
+	store "=saintjk","log"       if (headeris("From"     ,'<jklabs@manon.vellum.cz>')
+	                              || headeris("From"     ,'<jklabs@ollie.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>';
@@ -390,41 +526,110 @@ 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","log"      if headeris "List-Id"  ,'<libtool.gnu.org>';
-	store "=libtoolpat","log"    if headeris "List-Id"  ,'<libtool-patches.gnu.org>';
-	store "=automake","log"      if headeris "List-Id"  ,'<automake.gnu.org>';
+	store "=libtoold","silent"   if headeris "List-Id"  ,'<libtool.gnu.org>';
+	store "=libtoolpat","silent" if headeris "List-Id"  ,'<libtool-patches.gnu.org>';
+	store "=automake","silent"   if headeris "List-Id"  ,'<automake.gnu.org>';
 	store "=autoconf","log"      if headeris "List-Id"  ,'<autoconf.gnu.org>';
 	store "=autoconfpat","log"   if headeris "List-Id"  ,'<autoconf-patches.gnu.org>';
-	                             if (headeris("From"    ,'<mailman-owner@vellum.cz>')
-	                                 || headeris("From" ,'<captive-list-admin@jankratochvil.net>')
-	                                 || headeris("From" ,'<captive-devel-list-admin@jankratochvil.net>')
-	                                 || headeris("From" ,'<captive-announce-list-admin@jankratochvil.net>')) {
-		store "=caperr","log";
-		}
-	else {
-		store "=cap","bell"        if headeris "List-Id"  ,'<captive-list.jankratochvil.net>';
-		store "=capd","bell"       if headeris "List-Id"  ,'<captive-devel-list.jankratochvil.net>';
-		store "=capann","bell"     if headeris "List-Id"  ,'<captive-announce-list.jankratochvil.net>';
-		}
-	store "=ntfsann","log"       if headeris "List-Id"  ,'<linux-ntfs-announce.lists.sourceforge.net>';
-	store "=ntfsd","log"         if headeris "List-Id"  ,'<linux-ntfs-dev.lists.sourceforge.net>';
-	store "=orbit","log"         if headeris "List-Id"  ,'<orbit-list.gnome.org>';
-	store "=kand","log"          if headeris "List-Id"  ,'<devel.kannel.org>';
-	store "=mailmand","log"      if headeris "List-Id"  ,'<mailman-developers.python.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>';
+	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 "=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>';
+	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 "=fedd","log"          if headeris "List-Id"  ,'<fedora-devel-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>';
+	store "=zaurusann","log"     if headeris "List-Id"  ,'<openzaurus-announce.lists.sourceforge.net>';
+	store "=zaurusd","silent"    if headeris "List-Id"  ,'<openzaurus-devel.lists.sourceforge.net>';
+	store "=zaurussoft","silent" if headeris "List-Id"  ,'<openzaurus-software.lists.sourceforge.net>';
+	store "=iptperl","silent"    if headeris "List-Id"  ,'<iptperl-general.lists.sourceforge.net>';
 	# own webs
 	store "=energie","bell"      if headeris "From"     ,qr/^EnergieWeb/;
 	store "=ats","log"           if headeris("From"     ,'<root@ms.atspraha.cz>')
 	                                || (headeris("From",'<online@ringier.cz>') && headerhas("To",'<blesk@atspraha.cz>'));
 	store "=atscasablanca","log" if headeris "From"     ,'<casablanca@ms.atspraha.cz>';
 	store "=www-sms","log"       if headeris "List-Id"  ,'<www-sms-developers.lists.sourceforge.net>';
+	store "=httpdd","log"        if headeris "list-post",'<dev@httpd.apache.org>';
+	store "=mms2log","log"       if headeris "Return-Path",'<root@node0.mms2.org>';
+	store "=hotelgatelog","log"  if headeris("Return-Path",'<root@hotelgate.hotelnet>')
+	                                                    # `SMART error' should not be matched.
+	                             && headeris("Subject"  ,qr/^(?:Cron|Anacron|LogWatch) /);
+	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>';
+	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>';
+	store "=4c","bell"           if headeris "List-Id"  ,'<4c.jankratochvil.net>';
+	store "=dup","log"           if headeris "List-Id"  ,'<duplicity-talk.nongnu.org>';
+	store "=dupbug","log"        if headeris "List-Id"  ,'<duplicity-tracker.nongnu.org>';
+	store "=sue","log"           if headeris "Subject"  ,'Cron <lace@manon> $HOME/secure/sue';
+	store "=linkedin","log"      if headeris "From"     ,'<updates@linkedin.com>';
 
 	# 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>';
+
+	store "=host0log","log"      if headeris("From"       ,'<logwatch@jankratochvil.net>')
+	                             && headeris("Return-Path",'<root@jankratochvil.net>');
+	store "=host1log","log"      if headeris("From"       ,'<logwatch@host1.dyn.jankratochvil.net>')
+	                             && headeris("Return-Path",'<root@host1.dyn.jankratochvil.net>');
+
+	if (headeris("To"         ,'<lace@jankratochvil.net>')
+	 && headeris("Return-Path",'<nobody@tangens.sinus.cz>')) {
+	 	if (body_simple()=~/^SIP request received from <sip:2143[@]tangens.sinus.cz>.* for 2143$/o) {
+			store "=callme","log";
+		} else {
+			store "=call","log";
+		}
+	}
 
-	store "=errm","bell"         if $isFROM_MAILER && !did();
+	{
+		my $mailed=0;
+		if ($Audit->header()!~/for <(?:4c|vmezihori1)-(?:admin|owner|bounces)@/) {
+			for my $list qw(mailman 4c) {
+				$mailed+=dolist $list;
+			}
+		}
+		# return if $mailed;
+	}
 
-	store "==","sms"             if !did;
+	store "=errm","bell"         if $isFROM_MAILER && !did()
+	                             # qr/daemon@/ makes $isFROM_MAILER positive.
+	                             && !headeris("From",'<bugzilla-daemon@bugzilla.gnome.org>');
+
+	if (!did) {
+		store "==","sms";
+# FIXME: What to do with it?
+###		spamassassin "sa-learn --ham";
+		}
 }
 
 sub audit_sms_address