+(defun riece-server-process-name (server-name)
+ (if (equal server-name "")
+ "IRC"
+ (format "IRC<%s>" server-name)))
+
+(defun riece-server-process (server-name)
+ (cdr (assoc server-name riece-server-process-alist)))
+
+(defmacro riece-with-server-buffer (server-name &rest body)
+ `(let ((process (riece-server-process ,server-name)))
+ (if process
+ (with-current-buffer (process-buffer process)
+ ,@body)
+ (error "Server closed"))))
+
+(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 reset)
+ (with-current-buffer (process-buffer process)
+ (let ((length 0)
+ string)
+ (if reset
+ (setq riece-send-size 0))
+ (while (and riece-send-queue
+ (<= riece-send-size riece-max-send-size))
+ (setq string (riece-encode-coding-string (car riece-send-queue))
+ length (length string))
+ (if (> length riece-max-send-size)
+ (message "Long message (%d > %d)" length riece-max-send-size)
+ (setq riece-send-size (+ riece-send-size length))
+ (if (<= riece-send-size riece-max-send-size)
+ (process-send-string process string)))
+ (setq riece-send-queue (cdr riece-send-queue)))
+ (if riece-send-queue
+ (riece-run-at-time riece-send-delay nil
+ #'riece-flush-send-queue process t)))))
+
+(defun riece-process-send-string (process string)
+ (with-current-buffer (process-buffer process)
+ (setq riece-send-queue (nconc riece-send-queue (list string))))
+ (riece-flush-send-queue process nil))
+
+(defun riece-current-server-name ()
+ (or riece-overriding-server-name
+ ;already in the server buffer
+ (if (local-variable-p 'riece-server-name (current-buffer))
+ riece-server-name
+ (if riece-current-channel
+ (riece-identity-server riece-current-channel)
+ (if (riece-server-opened "")
+ "")))))
+
+(defun riece-send-string (string)
+ (let* ((server-name (riece-current-server-name))
+ (process (riece-server-process server-name)))
+ (unless process
+ (error "%s" (substitute-command-keys
+ "Type \\[riece-command-open-server] to open server.")))
+ (riece-process-send-string process string)))
+