From: bg66 <bg66>
Date: Wed, 22 Oct 2003 13:49:42 +0000 (+0000)
Subject: * riece.el (riece): When riece server was opened, Do
X-Git-Tag: riece-0_1_5~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=50654db0356fe51c0436c35ac1a6e34834f08fad;p=elisp%2Friece.git

* 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
--- 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
--- 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