From: ueno <ueno>
Date: Sat, 20 Mar 2004 03:22:32 +0000 (+0000)
Subject: * riece-server.el (riece-open-server): Append the server-name to
X-Git-Tag: riece-0_2_2~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ae7cb0ea2844fbb0d08c3d9fd33e655d2f8728ae;p=elisp%2Friece.git

* riece-server.el (riece-open-server): Append the server-name to
the prompt string.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ffb53a..87c65f8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-03-20  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-server.el (riece-open-server): Append the server-name to
+	the prompt string.
+
 2004-03-14  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-display.el (riece-display-connect-signals): Update
diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index 5c6b420..c552180 100644
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -155,7 +155,11 @@ the `riece-server-keyword-map' variable."
 	  (unwind-protect
 	      ;; XEmacs signals an error when the keyboard cannot be grabbed.
 	      (condition-case nil
-		  (setq password (riece-read-passwd "Password: "))
+		  (setq password
+			(if (equal server-name "")
+			    (riece-read-passwd "Password: ")
+			  (riece-read-passwd (format "Password for %s: "
+						     server-name))))
 		(error))
 	    (setq riece-reconnect-with-password nil)))
       (if password