From: kaoru <kaoru>
Date: Thu, 5 Jun 2008 03:06:44 +0000 (+0000)
Subject: * riece-options.el (riece-server-alist): Fix :value for username, password, function... 
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b798ff5cf201059858aa83abad40c0be40761b70;p=elisp%2Friece.git

* riece-options.el (riece-server-alist): Fix :value for username, password, function and coding-system.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a6160c4..25100e1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* riece-options.el (riece-server-alist): Fix :value for username,
+	password, function and coding-system.
+
 2008-06-02  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece.el (riece-read-variables-files): Re-evaluate custom settings.
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)