X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Friece.git;a=blobdiff_plain;f=lisp%2Friece-options.el;fp=lisp%2Friece-options.el;h=0d761c565cadfe239df71f23d021f294b64c50be;hp=9e7b1134db2707f88f350519a47ce02553c28c61;hb=b798ff5cf201059858aa83abad40c0be40761b70;hpb=4711db060a016188bfad928fe35c8ad27e23dddc

diff --git a/lisp/riece-options.el b/lisp/riece-options.el
index 9e7b113..0d761c5 100644
--- a/lisp/riece-options.el
+++ b/lisp/riece-options.el
@@ -195,23 +195,23 @@ specifying the coding systems for decoding and encoding respectively."
 					 string))
 			   (list :inline t :tag "Username"
 				 :format "%{%t%}: %v"
-				 (const :tag "" :value :host)
+				 (const :tag "" :value :username)
 				 (choice (const :tag "Default" riece-username)
 					 string))
 			   (list :inline t :tag "Password"
 				 :format "%{%t%}: %v"
-				 (const :tag "" :value :host)
+				 (const :tag "" :value :password)
 				 string)
 			   (list :inline t :tag "Function"
 				 :format "%{%t%}: %v"
-				 (const :tag "" :value :host)
+				 (const :tag "" :value :function)
 				 (choice
 				  (const :tag "Default"
 					 riece-default-open-connection-function)
 				  function))
 			   (list :inline t :tag "Coding system"
 				 :format "%{%t%}: %v"
-				 (const :tag "" :value :host)
+				 (const :tag "" :value :coding)
 				 (choice
 				  (const :tag "Default"
 					 riece-default-coding-system)