* lisp/net/rcirc.el (rcirc-markup-urls): Check if rcirc-url-regexp is nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index df5025dacc80f47b97982cde4984be3a1fde197e..00ca21c903b5ec539fd3307434b4549523d4c5b2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2011-05-19  Deniz Dogan  <deniz@dogan.se>
 
        * net/rcirc.el (rcirc-mode): Initialize rcirc-urls to nil.
+       (rcirc-markup-urls): Check if rcirc-url-regexp is nil.
 
 2011-05-19  Glenn Morris  <rgm@gnu.org>
 

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 3a423379b64beff78847a153239eab365a9a9ae9..0d02688beed4506529897d6d4bb6738afa9670da 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2394,7 +2394,8 @@ keywords when no KEYWORD is given."
        (rcirc-record-activity (current-buffer) 'nick)))))
 
 (defun rcirc-markup-urls (sender response)
-  (while (re-search-forward rcirc-url-regexp nil t)
+  (while (and rcirc-url-regexp ;; nil means disable URL catching
+              (re-search-forward rcirc-url-regexp nil t))
     (let ((start (match-beginning 0))
          (end (match-end 0)))
       (rcirc-add-face start end 'rcirc-url)