From 67d35c0da6b589ac0f9e74ad22a8b39bb0cdceb8 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Tue, 5 Oct 2004 22:48:06 +0000
Subject: [PATCH] Fixed.

---
 lisp/riece-server.el |   12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index 99a1a07..827b837 100644
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -171,12 +171,12 @@ the `riece-server-keyword-map' variable."
 	  (when (<= riece-send-size riece-max-send-size)
 	    (process-send-string process string)
 	    (setq riece-last-send-time (current-time)))))
-      (if riece-send-queue
-	  (riece-run-at-time riece-send-delay nil
-			     (lambda (process)
-			       (if (process-live-p process)
-				   (riece-flush-send-queue process)))
-			     process)))))
+      (unless (riece-queue-empty riece-send-queue)
+	(riece-run-at-time riece-send-delay nil
+			   (lambda (process)
+			     (if (process-live-p process)
+				 (riece-flush-send-queue process)))
+			   process)))))
 
 (defun riece-process-send-string (process string)
   (with-current-buffer (process-buffer process)
-- 
1.7.10.4