Undo the last change.
authorueno <ueno>
Fri, 4 Feb 2005 02:47:39 +0000 (02:47 +0000)
committerueno <ueno>
Fri, 4 Feb 2005 02:47:39 +0000 (02:47 +0000)
lisp/riece-400.el
lisp/riece-compat.el
lisp/riece-irc.el

index add65b0..e469edf 100644 (file)
         key)
     (message "%s: %s" (car parameters) (nth 1 parameters))
     (setq key
-         (riece-read-passwd
-          (format "Key for %s: "
-                  (riece-format-identity channel-identity t))))
+         (condition-case nil
+             (let (inhibit-quit)
+               (riece-read-passwd
+                (format "Key for %s: "
+                        (riece-format-identity channel-identity t))))
+           (quit
+            (message "Key for %s: Quit"
+                     (riece-format-identity channel-identity t))
+            'quit)))
     (unless (eq key 'quit)
       (riece-command-join-channel channel-identity key))))
 
index 43f7797..5e4c2a0 100644 (file)
 (autoload 'read-passwd "passwd")
 (defvar riece-read-passwd #'read-passwd)
 (defun riece-read-passwd (prompt)
-  (condition-case nil
-      (let (inhibit-quit)
-       (funcall riece-read-passwd prompt))
-    (quit
-     (message "%sQuit" prompt)
-     'quit)))
+  (funcall riece-read-passwd prompt))
 
 (if (string-match "0\\{0\\}" "")
     (defun riece-make-interval-regexp (regexp min &optional max)
index a84a607..caecdc7 100644 (file)
       (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)