From 019ed9c702a4456596be97d0b6e8e29be71f7181 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 3 Mar 2006 11:44:11 +0000 Subject: [PATCH] (rcirc-url-regexp): Match entire url when it starts with "www". --- lisp/ChangeLog | 5 +++++ lisp/net/rcirc.el | 13 +++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f82c29d6ba5..247bef99213 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-03-03 Ryan Yeske + + * net/rcirc.el (rcirc-url-regexp): Match entire url when it starts + with "www". + 2006-03-03 Ken Manheimer allout.el: Restablished intermediate missing comment header to diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index f2eff379d14..f5cf1ecb7e0 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -1635,12 +1635,13 @@ ones added to the list automatically are marked with an asterisk." (defvar rcirc-url-regexp (rx-to-string `(and word-boundary - (or "www." - (and (or "http" "https" "ftp" "file" "gopher" "news" "telnet" - "wais" "mailto") - "://" - (1+ (char "-a-zA-Z0-9_.")) - (optional ":" (1+ (char "0-9")))) + (or (and + (or (and (or "http" "https" "ftp" "file" "gopher" "news" + "telnet" "wais" "mailto") + "://") + "www.") + (1+ (char "-a-zA-Z0-9_.")) + (optional ":" (1+ (char "0-9")))) (and (1+ (char "-a-zA-Z0-9_.")) (or ".com" ".net" ".org") word-boundary)) -- 2.39.5