From: ueno <ueno>
Date: Sat, 27 Aug 2005 13:38:01 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: channel-coding-branchpoint~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2c01d3c570555b08cc9734cfdcbcecb1044ba662;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 90d78de..163e1e8 100644
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -235,10 +235,12 @@
       (if (eq (car (car pointer)) addon)
 	  (setq pointer nil)
 	(setq pointer (cdr pointer))))
-    (if (y-or-n-p (format "%s will be insinuated.  Continue?"
-			  (mapconcat #'symbol-name addons ", ")))
+    (if (if (eq verbose 'ask)
+	    (y-or-n-p (format "%s will be insinuated.  Continue?"
+			      (mapconcat #'symbol-name addons ", ")))
+	  verbose)
 	(while addons
-	  (riece-insinuate-addon-1 (car addons))
+	  (riece-insinuate-addon-1 (car addons) verbose)
 	  (setq addons (cdr addons))))))
 
 (defun riece-uninstall-addon (addon &optional verbose)
@@ -464,7 +466,7 @@ Useful keys:
 			  (lambda (pointer)
 			    (not (get (car pointer) 'riece-addon-insinuated)))
 			  t)))))
-  (riece-insinuate-addon addon t)
+  (riece-insinuate-addon addon 'ask)
   (when (eq major-mode 'riece-addon-list-mode)
     (riece-command-list-addons)
     (riece-addon-list-set-point addon)))