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

highlighting.

diff --git a/bug_form.pl b/bug_form.pl
index 1c9ecb1e03b591374f2583ca586a6e1ab2c56ec0..7757b038ceb59830806466046b7ddb0556a07cf5 100644 (file)
--- a/bug_form.pl
+++ b/bug_form.pl
@@ -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 = $&;