Fixed bug 7000 -- handle hyphens in hostnames of email addresses when

highlighting.


git-svn-id: svn://10.0.0.236/trunk@32610 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
terry%mozilla.org 1999-05-25 19:52:34 +00:00
parent 55e6c5cc50
commit 897a11c822

View File

@ -52,7 +52,7 @@ sub quoteUrls {
# which can happen if you do multiple s///g operations.
my @things;
while ($text =~ s%((mailto:)?([\w\.\-\+\=]+\@\w+(?:\.\w+)+)\b|
while ($text =~ s%((mailto:)?([\w\.\-\+\=]+\@[\w\-]+(?:\.[\w\-]+)+)\b|
(\b((?:$protocol):\S+[\w/])))%"##$count##"%exo) {
my $item = $&;