Synch up with liece-2_0.

[elisp/liece.git] / lisp / liece-mail.el

diff --git a/lisp/liece-mail.el b/lisp/liece-mail.el
index d8ceab1..645c934 100644 (file)
--- a/lisp/liece-mail.el
+++ b/lisp/liece-mail.el
@@ -50,8 +50,8 @@
   (interactive
    (let ((completion-ignore-case t))
      (list
-      (liece-minibuffer-completing-default-read
-       "To whom: " liece-nick-alist nil nil liece-current-chat-partner))))
+      (liece-minibuffer-completing-read
+       "To whom: " liece-nick-alist nil nil nil nil liece-current-chat-partner))))
   (let ((composefunc (get mail-user-agent 'composefunc)) (to nick)
        (user-agent (liece-version)) uah)
     (if (setq uah (liece-nick-get-user-at-host nick))