* riece-display.el (riece-inhibit-update-buffers): New variable.

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

diff --git a/lisp/riece-identity.el b/lisp/riece-identity.el
index 7a08a7a..f56e62c 100644 (file)
--- a/lisp/riece-identity.el
+++ b/lisp/riece-identity.el
@@ -151,9 +151,10 @@ RFC2812, 2.2 \"Character codes\" says:
   (let* ((decoded
          (completing-read
           prompt
-          (delq nil (mapcar (lambda (channel)
-                              (list (riece-decode-identity channel)))
-                            (or channels riece-current-channels)))
+          (mapcar (lambda (channel)
+                    (list (riece-decode-identity channel)))
+                  (delq nil (copy-sequence (or channels
+                                               riece-current-channels))))
           predicate must-match))
         (encoded
          (riece-encode-identity decoded)))