From: ueno <ueno>
Date: Tue, 2 Sep 2003 04:23:02 +0000 (+0000)
Subject: * riece-commands.el (riece-command-join): Format target.
X-Git-Tag: riece-0_1_2~10
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=551b3106c1aabeb658203aeb30a84ec2c7789e89;p=elisp%2Friece.git

* riece-commands.el (riece-command-join): Format target.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e07ee17..99c7648 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,7 @@
 2003-09-02  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-commands.el (riece-command-join): Extract target
-	identity-prefix before applying riece-channel-p.
+	identity-prefix before applying riece-channel-p; format target.
 
 2003-08-30  Daiki Ueno  <ueno@unixuser.org>
 
diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index d8319f2..401678a 100644
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -427,7 +427,8 @@ the layout to the selected layout-name."
      (if (and current-prefix-arg
 	      (riece-channel-p (riece-identity-prefix target)))
 	 (setq key
-	       (riece-read-passwd (format "Key for %s: " target))))
+	       (riece-read-passwd (format "Key for %s: "
+					  (riece-format-identity target)))))
      (list target key)))
   (let ((pointer (riece-identity-member target riece-current-channels)))
     (if pointer