Added header.

[riece] / lisp / riece-400.el

diff --git a/lisp/riece-400.el b/lisp/riece-400.el
index add65b0..6dc4e43 100644 (file)
--- a/lisp/riece-400.el
+++ b/lisp/riece-400.el
@@ -19,8 +19,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Code:
 
@@ -71,9 +71,15 @@
         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))))