* riece-history.el (riece-history-insinuate): In

[riece] / lisp / riece-display.el

diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 288b46c..f739af4 100644 (file)
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -59,11 +59,17 @@
              buffer-read-only)
          (erase-buffer)
          (while users
-           (if (member (car users) operators)
-               (insert "@" (car users) "\n")
-             (if (member (car users) speakers)
-                 (insert "+" (car users) "\n")
-               (insert " " (car users) "\n")))
+           (insert (if (member (car users) operators)
+                       "@"
+                     (if (member (car users) speakers)
+                         "+"
+                       " "))
+                   (riece-format-identity
+                    (riece-make-identity (car users)
+                                         (riece-identity-server
+                                          riece-current-channel))
+                    t)
+                   "\n")
            (setq users (cdr users))))))))
 
 (defun riece-update-channel-list-buffer ()