X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-commands.el;h=fad792adff02e9aa0dd5e50df53c7b9579823c31;hp=3661cfb635c859d5d72f8c61a9a32760f8cd5fb2;hb=95a8777eba96d7f7b47881c7fff318ef7b1628a9;hpb=76fdb1e67d4e1d2346c9844b0fdd8b66dd52b16c

diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index 3661cfb..fad792a 100644
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -114,19 +114,22 @@
 (defun riece-command-toggle-channel-buffer-mode ()
   (interactive)
   (setq riece-channel-buffer-mode
-	(not riece-channel-buffer-mode))
+	(not riece-channel-buffer-mode)
+	riece-save-variables-are-dirty t)
   (riece-command-configure-windows))
 
 (defun riece-command-toggle-user-list-buffer-mode ()
   (interactive)
   (setq riece-user-list-buffer-mode
-	(not riece-user-list-buffer-mode))
+	(not riece-user-list-buffer-mode)
+	riece-save-variables-are-dirty t)
   (riece-command-configure-windows))
 
 (defun riece-command-toggle-channel-list-buffer-mode ()
   (interactive)
   (setq riece-channel-list-buffer-mode
-	(not riece-channel-list-buffer-mode))
+	(not riece-channel-list-buffer-mode)
+	riece-save-variables-are-dirty t)
   (riece-command-configure-windows))
 
 (defun riece-command-finger (user &optional recurse)
@@ -553,14 +556,11 @@ If prefix argument ARG is non-nil, toggle frozen status."
 (defun riece-command-open-server (server-name)
   (interactive
    (list (completing-read "Server: " riece-server-alist)))
-  (let ((process (riece-start-server
-		  (riece-server-name-to-server server-name)
-		  server-name)))
-    (with-current-buffer (process-buffer process)
-      (setq riece-server-name server-name))
-    (setq riece-server-process-alist
-	  (cons (cons server-name process)
-		riece-server-process-alist))))
+  (if (assoc server-name riece-server-process-alist)
+      (error "%s is already opened" server-name)
+    (riece-open-server
+     (riece-server-name-to-server server-name)
+     server-name)))
 
 (defun riece-command-close-server (server-name &optional message)
   (interactive