* riece-400.el (riece-handle-475-message): Don't bind inhibit-quit

[riece] / lisp / riece-400.el

diff --git a/lisp/riece-400.el b/lisp/riece-400.el
index cb166c7..add65b0 100644 (file)
--- a/lisp/riece-400.el
+++ b/lisp/riece-400.el
@@ -71,15 +71,9 @@
         key)
     (message "%s: %s" (car parameters) (nth 1 parameters))
     (setq key
-         (condition-case nil
-             (let (inhibit-quit)
-               (riece-read-passwd
-                (format "Key for %s: "
-                        (riece-format-identity channel-identity t))))
-           (quit
-            (message (format "Key for %s: Quit"
-                             (riece-format-identity channel-identity t)))
-            'quit)))
+         (riece-read-passwd
+          (format "Key for %s: "
+                  (riece-format-identity channel-identity t))))
     (unless (eq key 'quit)
       (riece-command-join-channel channel-identity key))))