From 1f12f5fe16ac7823e9a4fda498e0c29c4ce32753 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Sat, 19 Nov 2005 00:34:26 +0000 Subject: [PATCH] * riece-commands.el (riece-command-part-channel): Signal an error if TARGET server has not opened. --- lisp/ChangeLog | 3 +++ lisp/riece-commands.el | 3 +++ 2 files changed, 6 insertions(+) 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 + * 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) -- 2.25.1