From b798ff5cf201059858aa83abad40c0be40761b70 Mon Sep 17 00:00:00 2001 From: kaoru Date: Thu, 5 Jun 2008 03:06:44 +0000 Subject: [PATCH] * riece-options.el (riece-server-alist): Fix :value for username, password, function and coding-system. --- lisp/ChangeLog | 5 +++++ lisp/riece-options.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) 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 + + * riece-options.el (riece-server-alist): Fix :value for username, + password, function and coding-system. + 2008-06-02 Daiki Ueno * 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) -- 1.7.10.4