From 07620b4f46d743c4ca8c87ecafaf079e28f8953a Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 26 Jan 2005 06:32:55 +0000 Subject: [PATCH] (elmo-folder-list-subfolders): Use root mailbox without delimiter to obtain root mailbox itself. --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index beea63d..8b35b64 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2005-01-26 Yuuichi Teranishi + + * elmo-imap4.el (elmo-folder-list-subfolders): Use root mailbox without + delimiter to obtain root mailbox itself. + 2005-01-25 Tetsurou Okazaki * elmo-net.el (elmo-network-session-idle-timeout): Fix customization diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index 07ea83c..cc1d40a 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -1966,6 +1966,7 @@ Return nil if no complete line has arrived." (delim (or (cdr namespace-assoc) elmo-imap4-default-hierarchy-delimiter)) ;; Append delimiter when root with namespace. + (root-nodelim root) (root (if (and namespace-assoc (match-end 1) (string= (substring root (match-end 1)) @@ -1984,7 +1985,8 @@ Return nil if no complete line has arrived." (elmo-imap4-response-get-selectable-mailbox-list (elmo-imap4-send-command-wait session - (list "list \"\" " (elmo-imap4-mailbox root))))))) + (list "list \"\" " (elmo-imap4-mailbox + root-nodelim))))))) (when (or (not (string= (elmo-net-folder-user-internal folder) elmo-imap4-default-user)) (not (eq (elmo-net-folder-auth-internal folder) -- 1.7.10.4