Diff of /spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm

Parent Directory | Revision Log | Patch

--- spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm	2005/05/04 06:36:23	168088
+++ spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm	2005/05/04 06:37:46	168089
@@ -1796,10 +1796,10 @@ my $tldsRE = qr/
 #   (?<![a-z\d][.-]) = don't let there be more hostname behind, but
 #                      don't miss ".....www.bar.com" or "-----www.foo.com"
 #   (?<!.\@) = this will be caught by the email address regular expression
-my $schemelessRE = qr/(?<![a-z\d][.-])(?<!.\@)\b[a-z\d]
-                      [a-z\d.-]{0,251}
+my $schemelessRE = qr/(?<![a-z\d][._-])(?<!.\@)\b[a-z\d]
+                      [a-z\d._-]{0,251}
                       \.${tldsRE}\.?\b
-                      (?![a-z\d.-])
+                      (?![a-z\d._-])
                       /ix;
 
 my $uriRe = qr/\b(?:$schemeRE:[$uricCheat]|$schemelessRE)[$uricSet#]*/o;