From 4986bcce546dd00b3bf485f9021db90eae1f9857 Mon Sep 17 00:00:00 2001 From: okada Date: Mon, 6 Nov 2000 06:55:52 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-imap4-list-folders): Append authenticate-type. --- elmo/ChangeLog | 4 ++++ elmo/elmo-imap4.el | 4 ++++ 2 files changed, 8 insertions(+) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index e41fdb2..efe6ae1 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,9 @@ 2000-11-06 Kenichi OKADA + * elmo-imap4.el (elmo-imap4-list-folders): Append authenticate-type. + +2000-11-06 Kenichi OKADA + * elmo-imap4.el (elmo-imap4-list-folders): When hierarchy is non-nil, make hierarchy. diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index f3d1327..450c68b 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -551,6 +551,10 @@ BUFFER must be a single-byte buffer." (unless (string= (elmo-imap4-spec-username spec) 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) + (setq append-serv + (concat append-serv "/" (symbol-name (elmo-imap4-spec-auth spec))))) (unless (string= (elmo-imap4-spec-hostname spec) elmo-default-imap4-server) (setq append-serv (concat append-serv "@" (elmo-imap4-spec-hostname -- 1.7.10.4