* liece.el (liece-open-server-internal): Simplify.

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

diff --git a/lisp/liece-mail.el b/lisp/liece-mail.el
index ccea28b..645c934 100644 (file)
--- a/lisp/liece-mail.el
+++ b/lisp/liece-mail.el
@@ -41,7 +41,7 @@
   :type 'string)
 
 (defcustom liece-maintainer-address
-  "irchat@kiss.kake.info.waseda.ac.jp (Liece developers)"
+  "liece@unixuser.org (Liece developers)"
   "The mail address of the Liece maintainers."
   :group 'liece-mail
   :type 'string)
@@ -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))