Mailing List Archive

Author: jm
Date: Tue Feb 10 23:25:23 2004
New Revision: 6617

Modified:
incubator/spamassassin/trunk/lib/Mail/SpamAssassin/Bayes.pm
Log:
missing entire hostnames

Modified: incubator/spamassassin/trunk/lib/Mail/SpamAssassin/Bayes.pm
==============================================================================
--- incubator/spamassassin/trunk/lib/Mail/SpamAssassin/Bayes.pm (original)
+++ incubator/spamassassin/trunk/lib/Mail/SpamAssassin/Bayes.pm Tue Feb 10 23:25:23 2004
@@ -392,6 +392,7 @@
$wc += scalar @toks;
}
elsif (CHEW_BODY_URIS && $token =~ /\S\.[a-z]/i) {
+ push (@{$self->{tokens}}, "UD:".$token); $wc++; # the full token
my $bit = $token; while ($bit =~ s/^[^\.]+\.(.+)$/$1/gs) {
push (@{$self->{tokens}}, "UD:".$1); $wc++; # UD = URL domain
}