+ (list riece-dialogue-buffer riece-others-buffer)
+ riece-dialogue-buffer)))
+
+(defun riece-format-message (message &optional global)
+ (let ((open-bracket
+ (funcall riece-message-make-open-bracket-function message))
+ (close-bracket
+ (funcall riece-message-make-close-bracket-function message))
+ (name
+ (if global
+ (funcall riece-message-make-global-name-function message)
+ (funcall riece-message-make-name-function message)))
+ (server-name (riece-identity-server (riece-message-speaker message))))
+ (riece-with-server-buffer server-name
+ (concat
+ (if global
+ (riece-concat-server-name
+ (concat open-bracket name close-bracket
+ " " (riece-message-text message)))
+ (concat open-bracket name close-bracket
+ " " (riece-message-text message)))
+ "\n"))))
+
+(defun riece-display-message-1 (message)
+ (let ((buffer (riece-message-buffer message))
+ parent-buffers)
+ (when (and buffer
+ (riece-message-own-p message)
+ (riece-own-frozen buffer))
+ (with-current-buffer buffer
+ (setq riece-freeze nil))
+ (riece-emit-signal 'buffer-freeze-changed buffer nil))
+ (setq parent-buffers (riece-message-parent-buffers message buffer))
+ (riece-insert buffer (riece-format-message message))
+ (riece-insert parent-buffers (riece-format-message message t))
+ (with-current-buffer buffer
+ (run-hook-with-args 'riece-after-display-message-functions message))))