From 6f78dc83054fe5d6dafc44cc00390cc427f946f7 Mon Sep 17 00:00:00 2001
From: root <root>
Date: Sat, 20 May 2006 18:17:37 +0000
Subject: [PATCH] *** empty log message ***

---
 Changes            | 1 +
 src/perl/mark-urls | 2 +-
 src/perl/selection | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index c3c3491f..7463f948 100644
--- 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 200007d5..a8921aed 100644
--- 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 d1cfc410..d93fd6fa 100644
--- 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,
 
-- 
2.34.1