Fixed.

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 9421ff2..fb5022a 100644 (file)
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -375,17 +375,20 @@ All normal editing commands are turned off."
     (insert "
 Symbols in the leftmost column:
 
-  +     The add-on is enabled.
-  -     The add-on is disabled.
-  !    The add-on doesn't support enable/disable operation.
-  ?    The add-on is not insinuated.
+   +     The add-on is enabled.
+   -     The add-on is disabled.
+   !   The add-on doesn't support enable/disable operation.
+   ?   The add-on is not insinuated.
        The add-on is not loaded.
 ")
     (insert (substitute-command-keys "
 Useful keys:
 
-  `\\[riece-command-enable-addon]' to enable the current add-on.
-  `\\[riece-command-disable-addon]' to disable the current add-on.
+   `\\[riece-command-enable-addon]' to enable the current add-on.
+   `\\[riece-command-disable-addon]' to disable the current add-on.
+   `\\[riece-command-insinuate-addon]' to insinuate the add-on.
+   `\\[riece-command-uninstall-addon]' to uninstall the current add-on.
+   `\\[riece-command-unload-addon]' to unload the current add-on.
 "))
     (goto-char (point-min))
     (pop-to-buffer (current-buffer))

diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index 2caf85a..0805794 100644 (file)
--- a/lisp/riece-emacs.el
+++ b/lisp/riece-emacs.el
@@ -140,7 +140,7 @@ If N is nil, all messages will be returned."
     (if (eq (car plist) property)
        (setplist symbol (cdr (cdr plist)))
       (while (and (nthcdr 2 plist)
-                 (eq (car (nthcdr 2 plist)) property))
+                 (not (eq (car (nthcdr 2 plist)) property)))
        (setq plist (nthcdr 2 plist)))
       (if (nthcdr 2 plist)
          (setcdr (cdr plist) (nthcdr 4 plist))))))

diff --git a/lisp/riece-toolbar.el b/lisp/riece-toolbar.el
index 06d642f..4bcec8a 100644 (file)
--- a/lisp/riece-toolbar.el
+++ b/lisp/riece-toolbar.el
@@ -125,7 +125,7 @@
       (with-current-buffer riece-command-buffer
        (riece-toolbar-command-mode-hook)))
   (add-hook 'riece-command-mode-hook
-           'riece-toolbar-command-mode-hook))
+           'riece-toolbar-command-mode-hook t))
 
 (defun riece-toolbar-uninstall ()
   (if riece-command-buffer