* riece-display.el (riece-update-long-channel-indicator): Change

[riece] / lisp / riece-message.el

diff --git a/lisp/riece-message.el b/lisp/riece-message.el
index 4eccca7..f9d3740 100644 (file)
--- 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)
@@ -152,7 +152,7 @@ Normally they are *Dialogue* and/or *Others*."
             (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 (riece-current-server-name)
+    (riece-with-server-buffer server-name
       (concat
        (if global
           (riece-concat-server-name