From: ueno Date: Sat, 25 Sep 2004 06:03:54 +0000 (+0000) Subject: Fixed. X-Git-Tag: riece-1_0_4~13 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=185798285b0f701a23e7de36afe1c939a28bdfc7;p=elisp%2Friece.git Fixed. --- diff --git a/lisp/riece-server.el b/lisp/riece-server.el index 30086a5..2bfd51f 100644 --- a/lisp/riece-server.el +++ b/lisp/riece-server.el @@ -105,11 +105,11 @@ the `riece-server-keyword-map' variable." (put 'riece-with-server-buffer 'lisp-indent-function 1) (put 'riece-with-server-buffer 'edebug-form-spec '(form body)) -(defun riece-flush-send-queue (process &optional force) +(defun riece-flush-send-queue (process &optional reset) (with-current-buffer (process-buffer process) (let ((length 0) string) - (if force + (if reset (setq riece-send-size 0)) (while (and riece-send-queue (<= riece-send-size riece-max-send-size))