X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-server.el;h=921a6cd8baa7f1c6fdb3fc345e666e992c693b11;hp=27b40e84087d376815666d0fcd7fbbf701a99834;hb=c6fb432f3030ccf7c268fd59d74a55469791232e;hpb=5093bbaa0dad0cdda557aa5712eeea0ccb0ea9ea

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