From: ueno <ueno>
Date: Tue, 5 Oct 2004 22:48:06 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: riece-1_0_4~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=67d35c0da6b589ac0f9e74ad22a8b39bb0cdceb8;p=elisp%2Friece.git

Fixed.
---

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)