From: teranisi <teranisi>
Date: Tue, 27 Feb 2001 10:14:27 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-list-folders): Fixed problem when
X-Git-Tag: wl-2_6-root~71
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d1ab62d90475ffb64793b968c16ae624704fa03d;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-list-folders): Fixed problem when
 elmo-default-imap4-authenticate-type is nil
 (Reported by Bun Mizuhara <mizuhara@acm.org>).
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 25c4c06..dd44411 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,9 @@
 2001-02-27  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-imap4.el (elmo-imap4-list-folders): Fixed problem when
+	elmo-default-imap4-authenticate-type is nil
+	(Reported by Bun Mizuhara <mizuhara@acm.org>).
+
 	* elmo-vars.el (elmo-pop3-use-uidl): Moved from `elmo-pop3.el'.
 	(Adviced by Akihiro MOTOKI <mokkun@iname.com>)
 
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index c4c6139..f601cd3 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)