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

[riece] / lisp / riece-server.el

diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index 27b40e8..921a6cd 100644 (file)
--- 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)
              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
 
 (defun riece-server-opened (&optional server-name)
   (if server-name