Fixed.
authorDaiki Ueno <ueno@unixuser.org>
Sat, 25 Sep 2004 06:03:54 +0000 (06:03 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Sat, 25 Sep 2004 06:03:54 +0000 (06:03 +0000)
lisp/riece-server.el

index 30086a5..2bfd51f 100644 (file)
@@ -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))
 
 (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)
   (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))
          (setq riece-send-size 0))
       (while (and riece-send-queue
                  (<= riece-send-size riece-max-send-size))