* 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 f2640aa..d50dc28 100644 (file)
--- 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 e3296bd..2b28e18 100644 (file)
--- 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)