From: ueno <ueno>
Date: Mon, 27 Sep 2004 02:16:56 +0000 (+0000)
Subject: * riece-server.el (riece-make-queue): New function.
X-Git-Tag: riece-1_0_4~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dde303afb4f1fbc63ae3bc01ee17aebb7bab79df;p=elisp%2Friece.git

* riece-server.el (riece-make-queue): New function.
(riece-queue-enqueue): New function.
(riece-queue-dequeue): New function.
(riece-queue-empty): New function.
(riece-flush-send-queue): Use a queue object; check the process
is active.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c298b6..fecf400 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,7 +6,8 @@
 	(riece-queue-enqueue): New function.
 	(riece-queue-dequeue): New function.
 	(riece-queue-empty): New function.
-	(riece-flush-send-queue): Use a queue object.
+	(riece-flush-send-queue): Use a queue object; check the process
+	is active.
 
 2004-09-25  Daiki Ueno  <ueno@unixuser.org>
 
diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index 1cf13b8..ff6ca63 100644
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -173,7 +173,10 @@ the `riece-server-keyword-map' variable."
 	    (setq riece-last-send-time (current-time)))))
       (if riece-send-queue
 	  (riece-run-at-time riece-send-delay nil
-			     #'riece-flush-send-queue process)))))
+			     (lambda (process)
+			       (if (process-buffer process)
+				   (riece-flush-send-queue process)))
+			     process)))))
 
 (defun riece-process-send-string (process string)
   (with-current-buffer (process-buffer process)