Fixed.

[riece] / lisp / riece-400.el

diff --git a/lisp/riece-400.el b/lisp/riece-400.el
index 1c302f2..014d974 100644 (file)
--- a/lisp/riece-400.el
+++ b/lisp/riece-400.el
@@ -28,7 +28,7 @@
 (require 'riece-misc)
 
 (eval-when-compile
-  (autoload 'riece-default-handle-numeric-reply "riece-filter"))
+  (autoload 'riece-default-handle-numeric-reply "riece-handle"))
 (defun riece-handle-default-400-message (prefix number name string)
   (riece-default-handle-numeric-reply
    riece-error-prefix prefix number name string))
@@ -37,8 +37,9 @@
   (condition-case nil
       (let (inhibit-quit)
        (read-string prompt))
-    (quit)))
-  
+    (quit
+     (ignore (message "%s" (concat prompt "Quit"))))))
+
 (defun riece-handle-432-message (prefix number name string)
   "ERR_ERRONEUSNICKNAME        \"<nick> :Erroneous nickname\"."
   (let ((nickname