From: ueno <ueno>
Date: Fri, 19 Nov 2004 08:15:39 +0000 (+0000)
Subject: * riece.el (riece-submit-bug-report): use
X-Git-Tag: riece-1_0_6~42
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=86b1b3aea569dfc7f871b80fbb1ca3113d8a774c;p=elisp%2Friece.git

* riece.el (riece-submit-bug-report): use
riece-server-process-opened instead of process-live-p.
* riece-server.el (riece-flush-send-queue): Use
riece-server-process-opened instead of process-live-p.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9493254..440d236 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2004-11-19  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece.el (riece-submit-bug-report): use
+	riece-server-process-opened instead of process-live-p.
+	* riece-server.el (riece-flush-send-queue): Use
+	riece-server-process-opened instead of process-live-p.
+
 	* riece-yank.el (riece-yank-strip-space): Bind space-width.
 
 	* riece-xemacs.el (riece-recent-messages): New function.
diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index 827b837..7512ae4 100644
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -174,7 +174,7 @@ the `riece-server-keyword-map' variable."
       (unless (riece-queue-empty riece-send-queue)
 	(riece-run-at-time riece-send-delay nil
 			   (lambda (process)
-			     (if (process-live-p process)
+			     (if (riece-server-process-opened process)
 				 (riece-flush-send-queue process)))
 			   process)))))
 
diff --git a/lisp/riece.el b/lisp/riece.el
index 4f646db..bda69c1 100644
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -586,7 +586,7 @@ are familiar with the debugger, to get a lisp back-trace.")
 				   (cdr (assoc (car (car pointer))
 					       riece-server-alist))))
 		    "\n"
-		    (if (process-live-p (cdr (car pointer)))
+		    (if (riece-server-process-opened (cdr (car pointer)))
 			(save-excursion
 			  (set-buffer (process-buffer (cdr (car pointer))))
 			  (goto-char (point-max))