* riece-naming.el (riece-naming-assert-join): Call

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

diff --git a/lisp/riece-filter.el b/lisp/riece-filter.el
index bf61aa0..088ee15 100644 (file)
--- a/lisp/riece-filter.el
+++ b/lisp/riece-filter.el
@@ -152,14 +152,14 @@
                   (substring status 0 (1- (length status))))
          (message "Connection to \"%s\" closed: %s"
                   server-name (substring status 0 (1- (length status))))))
-      (let ((riece-overriding-server-name server-name)
-           (channels riece-current-channels))
+      (let ((channels riece-current-channels))
        (while channels
          (if (and (car channels)
                   (equal (riece-identity-server (car channels))
                          server-name))
-             (setcar channels nil))
-         (setq channels (cdr channels))))
+             (riece-part-channel (car channels)))
+         (setq channels (cdr channels)))
+       (riece-redisplay-buffers))
       (riece-close-server-process process)
       ;; If no server process is available, exit.
       (unless riece-process-list