From 6e4c5c6a1fd0ec42c3d22917a5ff31f9f31c38a4 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 19 Feb 2002 00:57:22 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-folder-list-subfolders): Fixed logic. --- elmo/ChangeLog | 4 ++++ elmo/elmo-imap4.el | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 53a7ee9..1848593 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,7 @@ +2002-02-19 Yuuichi Teranishi + + * elmo-imap4.el (elmo-folder-list-subfolders): Fixed logic. + 2002-02-18 Daiki Ueno * elmo-nntp.el (elmo-nntp-send-mode-reader): Don't throw an error. diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index 0b0e282..795d27f 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -1903,10 +1903,10 @@ Return nil if no complete line has arrived." (elmo-imap4-send-command-wait session (list "list " (elmo-imap4-mailbox root) " *")))) - (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))) + (when (or (not (string= (elmo-net-folder-user-internal folder) + elmo-imap4-default-user)) + (not (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