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

highlighting.
This commit is contained in:
terry%mozilla.org 1999-05-25 19:52:34 +00:00
parent 025e8356ec
commit e1e1ed3d31

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 = $&;