repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: 83ec0d0d9f2958090cdc2ac7907249ccb5600c89:
path_to: 
revision_to: 

commit 83ec0d0d9f2958090cdc2ac7907249ccb5600c89
Author: Marc Lehmann 
Date:   Sat May 20 18:17:38 2006 +0000

    *** empty log message ***

diff --git a/Changes b/Changes

--- 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

--- 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

--- 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,

-----END OF PAGE-----