(riece-flush-send-queue): New function.
(riece-process-send-string): Use it.
(riece-reset-process-buffer): Reset riece-send-queue,
- riece-last-send-time, riece-send-size.
+ riece-send-size.
* riece-options.el (riece-max-send-size): New user option.
(riece-send-delay): New user option.
* riece-globals.el (riece-send-queue): New variable.
- (riece-last-send-time): New variable.
(riece-send-size): New variable.
2004-09-14 OHASHI Akira <bg66@koka-in.org>
(defvar riece-send-queue nil
"Send queue for avoiding client flood.
Local to the server buffers.")
-(defvar riece-last-send-time nil
- "Timestamp of the last send.
-Local to the server buffers.")
(defvar riece-send-size nil
"Size of the last send.
Local to the server buffers.")
(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 reset)
+(defun riece-flush-send-queue (process reset)
(with-current-buffer (process-buffer process)
(let ((length 0)
string)