* riece.el (riece): When riece server was opened, Do

`riece-command-configure-windows' instead of signaling.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eeebf5e..8250aea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-22  OHASHI Akira  <bg66@koka-in.org>
+
+       * riece.el (riece): When riece server was opened, Do
+       `riece-command-configure-windows' instead of signaling.
+
 2003-10-22  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-rdcc.el (riece-rdcc-send-program): Flush $stdout before

diff --git a/lisp/riece.el b/lisp/riece.el
index 301510c..72e53cb 100644 (file)
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -259,17 +259,18 @@ If optional argument CONFIRM is non-nil, ask which IRC server to connect."
   (riece-insinuate-addons riece-addons)
   (run-hooks 'riece-after-load-startup-hook)
   (if (riece-server-opened)
-      (error "Already running"))
-  (if (or confirm (null riece-server))
-      (setq riece-server (completing-read "Server: " riece-server-alist)))
-  (if (stringp riece-server)
-      (setq riece-server (riece-server-name-to-server riece-server)))
-  (riece-create-buffers)
-  (switch-to-buffer riece-command-buffer)
-  (riece-redisplay-buffers)
-  (riece-open-server riece-server "")
-  (run-hooks 'riece-startup-hook)
-  (message "%s" (substitute-command-keys "Type \\[describe-mode] for help")))
+      (riece-command-configure-windows)
+    (if (or confirm (null riece-server))
+       (setq riece-server (completing-read "Server: " riece-server-alist)))
+    (if (stringp riece-server)
+       (setq riece-server (riece-server-name-to-server riece-server)))
+    (riece-create-buffers)
+    (switch-to-buffer riece-command-buffer)
+    (riece-redisplay-buffers)
+    (riece-open-server riece-server "")
+    (run-hooks 'riece-startup-hook)
+    (message "%s" (substitute-command-keys
+                  "Type \\[describe-mode] for help"))))
 
 (defun riece-exit ()
   (if riece-save-variables-are-dirty