From ae7cb0ea2844fbb0d08c3d9fd33e655d2f8728ae Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 20 Mar 2004 03:22:32 +0000 Subject: [PATCH] * riece-server.el (riece-open-server): Append the server-name to the prompt string. --- lisp/ChangeLog | 5 +++++ lisp/riece-server.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) 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 + + * riece-server.el (riece-open-server): Append the server-name to + the prompt string. + 2004-03-14 Daiki Ueno * 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 -- 1.7.10.4