From: ueno <ueno>
Date: Sun, 19 Oct 2003 07:34:13 +0000 (+0000)
Subject: * riece-server.el (riece-server-process-opened): Return t.
X-Git-Tag: riece-0_1_4~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4d1e27fe8ac70af258aea42d44b0f0fa6cece605;p=elisp%2Friece.git

* riece-server.el (riece-server-process-opened): Return t.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d05b1d3..7563db3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2003-10-19  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-server.el (riece-server-process-opened): Return t.
+
 	* riece.el (riece-dialogue-mode-map): Bind "p" to
 	riece-command-enter-message-to-user.
 
diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index 27b40e8..921a6cd 100644
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -205,7 +205,7 @@ the `riece-server-keyword-map' variable."
 	      riece-server-process-alist)))
 
 (defun riece-server-process-opened (process)
-  (memq (process-status process) '(open run)))
+  (not (null (memq (process-status process) '(open run)))))
 
 (defun riece-server-opened (&optional server-name)
   (if server-name