From bceb2efa43dccf11e86ca28edfdf7b2a900daf33 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 27 Feb 2001 10:15:51 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-imap4-list-folders): Fixed problem when elmo-default-imap4-authenticate-type is nil (Reported by Bun Mizuhara ). --- elmo/ChangeLog | 4 ++++ elmo/elmo-imap4.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index f2640aa..d50dc28 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,9 @@ 2001-02-27 Yuuichi Teranishi + * elmo-imap4.el (elmo-imap4-list-folders): Fixed problem when + elmo-default-imap4-authenticate-type is nil + (Reported by Bun Mizuhara ). + * elmo-vars.el (elmo-pop3-use-uidl): Moved from `elmo-pop3.el'. (Adviced by Akihiro MOTOKI ) diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index e3296bd..2b28e18 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -530,7 +530,7 @@ BUFFER must be a single-byte buffer." elmo-default-imap4-user) (setq append-serv (concat ":" (elmo-imap4-spec-username spec)))) (unless (eq (elmo-imap4-spec-auth spec) - elmo-default-imap4-authenticate-type) + (or elmo-default-imap4-authenticate-type 'clear)) (setq append-serv (concat append-serv "/" (symbol-name (elmo-imap4-spec-auth spec))))) (unless (string= (elmo-imap4-spec-hostname spec) -- 1.7.10.4