* riece-url.el (riece-url-uninstall): Call easy-menu-remove-item.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9fbd336..247ed02 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2005-08-27  Daiki Ueno  <ueno@unixuser.org>
 
 2005-08-27  Daiki Ueno  <ueno@unixuser.org>
 

+       * riece-url.el (riece-url-uninstall): Call easy-menu-remove-item.
+

        * riece-addon.el (riece-addon-list-mode-map): Bind
        riece-command-unload-addon.
        (riece-insinuate-addon-1): New function; renamed from
        * riece-addon.el (riece-addon-list-mode-map): Bind
        riece-command-unload-addon.
        (riece-insinuate-addon-1): New function; renamed from

diff --git a/lisp/riece-url.el b/lisp/riece-url.el
index 6b27fcf..ae96aae 100644 (file)
--- a/lisp/riece-url.el
+++ b/lisp/riece-url.el
@@ -135,6 +135,9 @@ This maps a string \"Bug#12345\" to a URL
                t)))
 
 (defun riece-url-uninstall ()
                t)))
 
 (defun riece-url-uninstall ()

+  (easy-menu-remove-item
+   nil (list (car riece-menu-items))
+   "Open URL...")

   (remove-hook 'riece-after-insert-functions 'riece-url-scan-region)
   (remove-hook 'riece-command-mode-hook
               'riece-url-command-mode-hook))
   (remove-hook 'riece-after-insert-functions 'riece-url-scan-region)
   (remove-hook 'riece-command-mode-hook
               'riece-url-command-mode-hook))