From b199652fcd070f0f48742ff56832aaf041c52691 Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 22 Jan 2002 10:26:45 +0000 Subject: [PATCH] * elmo-vars.el (elmo-imap4-default-authenticate-type): Give choices for custom. (elmo-pop3-default-authenticate-type): Ditto. --- elmo/ChangeLog | 6 ++++++ elmo/elmo-vars.el | 8 ++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 6fef336..dd148e9 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,9 @@ +2002-01-22 Yoichi NAKAYAMA + + * elmo-vars.el (elmo-imap4-default-authenticate-type): Give + choices for custom. + (elmo-pop3-default-authenticate-type): Ditto. + 2002-01-22 Kenichi OKADA * elmo-imap4.el (elmo-folder-rename-internal): Change current diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el index 7d6d0e7..236cad4 100644 --- a/elmo/elmo-vars.el +++ b/elmo/elmo-vars.el @@ -92,7 +92,10 @@ Each elements are regexp of folder name (This is obsolete).") (defcustom elmo-imap4-default-authenticate-type 'login "*Default Authentication type for IMAP4." - :type 'symbol + :type '(radio (const :tag "encoded password transmission (login)" login) + (const :tag "CRAM-MD5 authentication (cram-md5)" cram-md5) + (const :tag "DIGEST-MD5 authentication (digest-md5)" digest-md5) + (const :tag "plain password transmission (clear)" clear)) :group 'elmo) (defcustom elmo-imap4-default-user (or (getenv "USER") @@ -172,7 +175,8 @@ This is taken precedence over `elmo-network-stream-type-alist'.") (defcustom elmo-pop3-default-authenticate-type 'user "*Default Authentication type for POP3." - :type 'symbol + :type '(radio (const :tag "plain password transmission (user)" user) + (const :tag "APOP authentication (apop)" apop)) :group 'elmo) (defcustom elmo-pop3-default-port 110 -- 1.7.10.4