Mailing List Archive

Author: quinlan
Date: Tue May 3 23:37:46 2005
New Revision: 168089

URL: http://svn.apache.org/viewcvs?rev=168089&view=rev
Log:
add underscore technology

Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm?rev=168089&r1=168088&r2=168089&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm Tue May 3 23:37:46 2005
@@ -1796,10 +1796,10 @@
# (?<![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;