Fixed.

[elisp/riece.git] / lisp / riece-naming.el

diff --git a/lisp/riece-naming.el b/lisp/riece-naming.el
index 4b4970f..cde0032 100644 (file)
--- a/lisp/riece-naming.el
+++ b/lisp/riece-naming.el
@@ -80,7 +80,7 @@
       (if pointer
          (setcar pointer new-name))
       (if (and riece-current-channel
-              (riece-identity-equal (riece-make-identity channel-name
+              (riece-identity-equal (riece-make-identity (car channels)
                                                          riece-server-name)
                                     riece-current-channel))
          (with-current-buffer riece-user-list-buffer