Undo the last change.

[riece] / lisp / riece-irc.el

diff --git a/lisp/riece-irc.el b/lisp/riece-irc.el
index a84a607..caecdc7 100644 (file)
--- 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)