+Handling of: "=spam".';german-news'

diff --git a/PerlMail/Config.pm b/PerlMail/Config.pm
index 8b992bf..14c57b8 100644 (file)
--- a/PerlMail/Config.pm
+++ b/PerlMail/Config.pm
@@ -44,7 +44,7 @@ require Mail::Alias;
 
 BEGIN {
        for (qw(headerhas store headeris did dnsbl store_muttrc_alternates Received_for parts_linear mime_type
-                       body_first mimehead spamassassin clamscan header_remap lmtp_deliver)) {
+                       body_first is_multipart mimehead mimebody spamassassin clamscan header_remap lmtp_deliver)) {
                eval 'sub '.$_.' { return ::'.$_.'(@_); }';
                }
        }
@@ -313,6 +313,31 @@ sub audit
                # I don't send viruses but viruses propagate mails of mine
                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.deutschlandchronik.de
+                                       www.heise.de
+                                       www.leverkusener-aufbruch.com
+                                       www.mjoelnirsseite.de
+                                       www.npd-nrw.net
+                                       www.npd.de
+                                       www.rp-online.de
+                                       www.spiegel.de
+                                       www.taz.de
+                                       ));
+                       my $found;
+                       $found=1 if /^\s*Lese selbst:\n/;
+                       while (m{http://([^/]+)/}g) {
+                               do { $found=1; next; } if $sites{$1};
+                               $found=0;
+                               last;
+                               }
+                       store "=spam".';german-news' if $found;
+                       }
                };
        $store_profile=undef();