X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-irc.el;h=caecdc75ef554268896c749b0e159726ce111acf;hp=a84a6072a164ca48e0c99a48f83b3a11240702d9;hb=0724798ff204508cec1e0965389c3b2d32066a3e;hpb=0e13b2266c950d2419308cd2354f74018c5aef22

diff --git a/lisp/riece-irc.el b/lisp/riece-irc.el
index a84a607..caecdc7 100644
--- a/lisp/riece-irc.el
+++ b/lisp/riece-irc.el
@@ -60,10 +60,17 @@
       (if riece-reconnect-with-password	;password incorrect or not set.
 	  (unwind-protect
 	      (setq password
-		    (if (equal server-name "")
-			(riece-read-passwd "Password: ")
-		      (riece-read-passwd (format "Password for %s: "
-						 server-name))))
+		    (condition-case nil
+			(let (inhibit-quit)
+			  (if (equal server-name "")
+			      (riece-read-passwd "Password: ")
+			    (riece-read-passwd (format "Password for %s: "
+						       server-name))))
+		      (quit
+		       (if (equal server-name "")
+			   (message "Password: Quit")
+			 (message "Password for %s: " server-name))
+		       'quit)))
 	    (setq riece-reconnect-with-password nil)))
       (if (eq password 'quit)
 	  (delete-process process)