: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)
(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))