From c1d3442d889c2e137a0d80ab74a07c3269ac33dd Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 28 Jan 2002 03:59:11 +0000 Subject: [PATCH] 2002-01-27 Takaaki MORIYAMA * elmo-imap4.el (elmo-folder-list-subfolders): Don't omit user name if authentication type is specified. --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 33bf2cb..4c8a47e 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2002-01-27 Takaaki MORIYAMA + + * elmo-imap4.el (elmo-folder-list-subfolders): Don't omit user + name if authentication type is specified. + 2002-01-28 Yuuichi Teranishi * elmo.el (elmo-default-imap4-stream-type): Define as obsolete diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index d7c129e..0b0e282 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -1903,8 +1903,10 @@ Return nil if no complete line has arrived." (elmo-imap4-send-command-wait session (list "list " (elmo-imap4-mailbox root) " *")))) - (unless (string= (elmo-net-folder-user-internal folder) - elmo-imap4-default-user) + (unless (and (string= (elmo-net-folder-user-internal folder) + elmo-imap4-default-user) + (eq (elmo-net-folder-auth-internal folder) + (or elmo-imap4-default-authenticate-type 'clear))) (setq append-serv (concat ":" (elmo-net-folder-user-internal folder)))) (unless (eq (elmo-net-folder-auth-internal folder) (or elmo-imap4-default-authenticate-type 'clear)) -- 1.7.10.4