From 3394755a37d70df50e840ce4ec7cb7d19c8cf0a0 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 15 Mar 2004 03:36:03 +0000 Subject: [PATCH] 2004-03-15 ARISAWA Akihiro * elmo-imap4.el (elmo-folder-list-subfolders): Add root mailbox if it is not contained in the response(A workaround for courier-imap). --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 9 +++++++++ 2 files changed, 14 insertions(+) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index a595174..25ec854 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2004-03-15 ARISAWA Akihiro + + * elmo-imap4.el (elmo-folder-list-subfolders): Add root mailbox + if it is not contained in the response(A workaround for courier-imap). + 2004-03-11 Hiroya Murata * elmo-imap4.el (elmo-folder-set-flag-plugged): Fix mismatched diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index f0029d5..c7a4ff9 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -1952,6 +1952,14 @@ Return nil if no complete line has arrived." (elmo-imap4-send-command-wait session (list "list " (elmo-imap4-mailbox root) " *")))) + ;; The response of Courier-imap doesn't contain a specified folder itself. + (unless (member root result) + (setq result + (append result + (elmo-imap4-response-get-selectable-mailbox-list + (elmo-imap4-send-command-wait + session + (list "list \"\" " (elmo-imap4-mailbox root))))))) (when (or (not (string= (elmo-net-folder-user-internal folder) elmo-imap4-default-user)) (not (eq (elmo-net-folder-auth-internal folder) @@ -2584,6 +2592,7 @@ If optional argument REMOVE is non-nil, remove FLAG." (and (memq 'answered flags) '("\\Answered"))) " ") + ;; XX KEYWORD flags ") ") " () ") (elmo-imap4-buffer-literal send-buffer)))) -- 1.7.10.4