* 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 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-11-19  Daiki Ueno  <ueno@unixuser.org>
 
 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.
        * 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 (file)
--- 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))))
 
 (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)
     (riece-send-string (if message
                           (format "PART %s :%s\r\n"
                                   (riece-identity-prefix target)