(defun liece-message-make-bracket (message open-p)
(if (eq open-p (liece-message-own-p message))
(if (eq (liece-message-type message) 'notice)
- "}"
+ "-"
(if (eq (liece-message-type message) 'action)
"]"
(if (liece-message-private-p message)
")"
">"))))
(if (eq (liece-message-type message) 'notice)
- "{"
+ "-"
(if (eq (liece-message-type message) 'action)
"["
(if (liece-message-private-p message)