X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-server.el;h=2bfd51fdfd53bdc62b74727bf3ced8d15ff122f3;hp=30086a5366f15986aa8931cc545b0b492051e8df;hb=28e700ab029aab78808d24c5b6f4192142cd5498;hpb=95121e9fce6c2834327f37aa274d8bf5ca6ef2aa

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))