* riece-identity.el (riece-completing-read-identity): Pass 6th &

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

diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index d8319f2..3d0f9a9 100644 (file)
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -427,7 +427,8 @@ the layout to the selected layout-name."
      (if (and current-prefix-arg
              (riece-channel-p (riece-identity-prefix target)))
         (setq key
-              (riece-read-passwd (format "Key for %s: " target))))
+              (riece-read-passwd (format "Key for %s: "
+                                         (riece-format-identity target)))))
      (list target key)))
   (let ((pointer (riece-identity-member target riece-current-channels)))
     (if pointer
@@ -454,8 +455,10 @@ the layout to the selected layout-name."
    (let* ((completion-ignore-case t)
         (target
          (riece-completing-read-identity
-          "Channel/User: " riece-current-channels nil nil
-          (cons (riece-format-identity riece-current-channel) 0)))
+          (format "Channel/User (default %s): "
+                  (riece-format-identity riece-current-channel))
+          riece-current-channels nil nil nil nil
+          (riece-format-identity riece-current-channel)))
         message)
      (if (and current-prefix-arg
              (riece-channel-p (riece-identity-prefix target)))