X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Friece-message.el;h=f9d3740f9cf94a5673de1fbf835f73c6a2785d8e;hb=70f7f82c08b9bb70c14b506354db416cf569c8ca;hp=ea6285f9e55330f7626667cca17e96e651219326;hpb=feb572b91aa7e81c152a7f1bdf3de7bb5414a3cf;p=riece diff --git a/lisp/riece-message.el b/lisp/riece-message.el index ea6285f..f9d3740 100644 --- a/lisp/riece-message.el +++ b/lisp/riece-message.el @@ -66,10 +66,10 @@ (defun riece-message-make-open-bracket (message) "Make `open-bracket' string for MESSAGE." - (if (riece-message-own-p message) - ">" - (if (eq (riece-message-type message) 'notice) - "{" + (if (eq (riece-message-type message) 'notice) + "{" + (if (riece-message-own-p message) + ">" (if (riece-message-private-p message) "=" (if (riece-message-external-p message) @@ -78,10 +78,10 @@ (defun riece-message-make-close-bracket (message) "Make `close-bracket' string for MESSAGE." - (if (riece-message-own-p message) - "<" - (if (eq (riece-message-type message) 'notice) - "}" + (if (eq (riece-message-type message) 'notice) + "}" + (if (riece-message-own-p message) + "<" (if (riece-message-private-p message) "=" (if (riece-message-external-p message)