- (funcall riece-message-make-name-function message))
- (global-name
- (funcall riece-message-make-global-name-function message))
- (buffer (riece-message-buffer message))
- (server-name (riece-identity-server (riece-message-speaker message)))
+ (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-format-message (message &optional global)
+ (funcall (or (cdr (assq (riece-message-type message)
+ riece-message-format-function-alist))
+ #'riece-format-message-1)
+ message global))
+
+(defun riece-display-message-1 (message)
+ (let ((buffer (riece-message-buffer message))