*** empty log message ***

diff --git a/Changes b/Changes
index c3c3491f47074474fb16509114a00b14b46f06c4..7463f948342199d210bfbfe689bf88b88f7e026d 100644 (file)
--- a/Changes
+++ b/Changes
@@ -46,6 +46,7 @@ TODO: check wether -depth works as resource
           by omatunto_.
         - slap in a using namespace std, might help on platforms that don't
           follow C++ closely enough.
+        - fix mailto url regex, spotted within milliseconds by Jost Krieger.
 
 7.7  Tue Feb 21 12:32:49 CET 2006
        - use double-buffered drawing (xft fonts only). On many driver/hardware

diff --git a/src/perl/mark-urls b/src/perl/mark-urls
index 200007d55a5fc6045484138418abb6b6dd61f313..a8921aed6565f0557a29c43388917462d0ccc06a 100644 (file)
--- a/src/perl/mark-urls
+++ b/src/perl/mark-urls
@@ -3,7 +3,7 @@
 # same url as used in "selection"
 my $url =
    qr{(
-      (?:https?|ftp|news|mailto|file)://[ab-zA-Z0-9\-\@;\/?:&=%\$_.+!*\x27(),~]+
+      (?:https?://|ftp://|news://|mailto:|file://)[ab-zA-Z0-9\-\@;\/?:&=%\$_.+!*\x27(),~]+
       [ab-zA-Z0-9\-\@;\/?:&=%\$_+!*\x27()~]   # exclude some trailing characters (heuristic)
    )}x;
 

diff --git a/src/perl/selection b/src/perl/selection
index d1cfc41048f75b1f06acd5f03f5aefebfe5670c9..d93fd6fa32b5c4794776d829873ffe3f183c3990 100644 (file)
--- a/src/perl/selection
+++ b/src/perl/selection
@@ -46,7 +46,7 @@ my @mark_patterns = (
 
    # urls, just a heuristic
    qr{(
-      (?:https?|ftp|news|mailto|file)://[ab-zA-Z0-9\-\@;\/?:&=%\$_.+!*\x27(),~]+
+      (?:https?://|ftp://|news://|mailto:|file://)[ab-zA-Z0-9\-\@;\/?:&=%\$_.+!*\x27(),~]+
       [ab-zA-Z0-9\-\@;\/?:&=%\$_+!*\x27()~]   # exclude some trailing characters (heuristic)
    )}x,