X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Friece-url.el;h=3e72b79118c0280171a8aa43489cdbe4b9607710;hb=503c9a229a8a8ee049091ef6d2cdff38d0704f43;hp=449e27bc6be4c4580155f1e77bcf2b9aa7d4d124;hpb=21290cb15e3b73ec3d7528885a5c2bad990d4b8d;p=riece

diff --git a/lisp/riece-url.el b/lisp/riece-url.el
index 449e27b..3e72b79 100644
--- a/lisp/riece-url.el
+++ b/lisp/riece-url.el
@@ -47,6 +47,11 @@
 (defvar riece-urls nil
   "A list of URL which appears in Riece buffers.")
 
+(defvar riece-url-enabled nil)
+
+(defconst riece-url-description
+  "Collect URL in IRC buffers")
+
 (autoload 'widget-convert-button "wid-edit")
 
 (defun riece-url-scan-region (start end)
@@ -69,7 +74,7 @@
   (mapcar (lambda (url)
 	    (vector url (list 'browse-url url)))
 	  riece-urls))
-	    
+
 (defvar riece-dialogue-mode-map)
 
 (defun riece-url-requires ()
@@ -80,7 +85,6 @@
 
 (defun riece-url-insinuate ()
   (add-hook 'riece-after-insert-functions 'riece-url-scan-region)
-  (define-key riece-dialogue-mode-map "U" 'riece-command-browse-url)
   (if (memq 'riece-menu riece-addons)
       (add-hook 'riece-command-mode-hook
 		(lambda ()
@@ -89,6 +93,14 @@
 		   '("Open URL..." :filter riece-url-create-menu)))
 		t)))
 
+(defun riece-url-enable ()
+  (define-key riece-dialogue-mode-map "U" 'riece-command-browse-url)
+  (setq riece-url-enabled t))
+
+(defun riece-url-disable ()
+  (define-key riece-dialogue-mode-map "U" nil)
+  (setq riece-url-enabled nil))
+
 (provide 'riece-url)
 
 ;;; riece-url.el ends here