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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a6160c4..25100e1 100644 (file)
--- 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.
 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 (file)
--- 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"
                                         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"
                                 (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"
                                 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"
                                 (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)
                                 (choice
                                  (const :tag "Default"
                                         riece-default-coding-system)