* liece-handle.el (liece-handle-kill-message): Call

[elisp/liece.git] / lisp / liece-filter.el

diff --git a/lisp/liece-filter.el b/lisp/liece-filter.el
index fa5ef6f..0d6430f 100644 (file)
--- a/lisp/liece-filter.el
+++ b/lisp/liece-filter.el
@@ -119,7 +119,7 @@
        (liece-sentinel-error proc status)
       (liece-message (_ "Connection closed. (%s)")
                      (substring status 0 (1- (length status)))))
-    (liece-clear-system))
+    (liece-close-server))
    (liece-reconnect-with-password
     (liece))
    (t