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

[riece] / lisp / riece-options.el

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