From df4e9996da3a61a0f13a7c4dbf0451801fb387e2 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Sat, 27 Aug 2005 07:14:22 +0000
Subject: [PATCH] Fixed.

---
 lisp/riece-addon.el   |   15 +++++++++------
 lisp/riece-emacs.el   |    2 +-
 lisp/riece-toolbar.el |    2 +-
 3 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 9421ff2..fb5022a 100644
--- 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
--- 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
--- 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
-- 
1.7.10.4