From: ueno <ueno>
Date: Sat, 19 Nov 2005 00:34:26 +0000 (+0000)
Subject: * riece-commands.el (riece-command-part-channel): Signal an error
X-Git-Tag: riece-2_0_2~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ab5ee3c4bba8d9300641cca68c88eee21b1248a8;p=elisp%2Friece.git

* riece-commands.el (riece-command-part-channel): Signal an error
if TARGET server has not opened.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a6b0767..a0690c3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-11-19  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-commands.el (riece-command-part-channel): Signal an error
+	if TARGET server has not opened.
+
 	* riece-channel.el: Require 'riece-cache.
 	(riece-find-channel): Increase priority of given channel name in
 	riece-channel-cache.
diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index 116d58a..edc349e 100644
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -485,6 +485,9 @@ the layout to the selected layout-name."
 
 (defun riece-command-part-channel (target message)
   (let ((process (riece-server-process (riece-identity-server target))))
+    (unless process
+      (error "%s" (substitute-command-keys
+		   "Type \\[riece-command-open-server] to open server.")))
     (riece-send-string (if message
 			   (format "PART %s :%s\r\n"
 				   (riece-identity-prefix target)