* 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 (file)
--- 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 (file)
--- 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)