* riece-filter.el (riece-sentinel): Simplified.

[riece] / lisp / riece-filter.el

diff --git a/lisp/riece-filter.el b/lisp/riece-filter.el
index 432a018..06a5137 100644 (file)
--- a/lisp/riece-filter.el
+++ b/lisp/riece-filter.el
@@ -131,14 +131,12 @@
       (unwind-protect
          (if (eq process riece-server-process)
              (riece)                   ;Need to initialize system.
-           (let* ((entry (rassq process riece-server-process-alist))
-                  (server-name
-                   (with-current-buffer (process-buffer process)
-                     riece-server-name)))
-             (setcdr entry (riece-start-server
-                            (riece-server-name-to-server server-name)
-                            server-name))
-             (riece-close-server-process process)))
+           (let ((server-name
+                  (car (rassq process riece-server-process-alist))))
+             (riece-close-server server-name)
+             (riece-open-server
+              (riece-server-name-to-server server-name)
+              server-name)))
        (setq riece-reconnect-with-password nil))
     (let ((server-name (with-current-buffer (process-buffer process)
                         riece-server-name)))