Improved URL regex.

[lurk.git] / lurk.el

diff --git a/lurk.el b/lurk.el
index 9563237..fb1c258 100644 (file)
--- a/lurk.el
+++ b/lurk.el
@@ -509,8 +509,9 @@ portion of the source component of the message, as LURK doesn't use this.")
        (opt (group (: ":" (+ digit))))
        (opt (group (: "/"
                       (opt
-                       (* (any alnum ",.-~/@|:%#=&_"))
-                       (+ (any alnum "-~/@|:%#=&")))))))))
+                       (* (any alnum "-/.,#:%=&_"))
+                       (any alnum "-/#:%=&_")))))))
+  "Imperfect regex used to find URLs in plain text.")
 
 (defun lurk-click-url (button)
   (browse-url (button-get button 'url)))