From: okazaki <okazaki>
Date: Sat, 1 Jul 2000 04:55:34 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-msgdb-load-async): Call
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b4afb281bd1ac8aba1b79885a15bd89906b7f9eb;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-msgdb-load-async): Call
`elmo-imap4-spec-mailbox' instead of `elmo-imap4-spec-folder'.
---

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index e975a44..87d72d7 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -709,7 +709,7 @@ Returns nil if selecting folder was in failure."
 		(elmo-imap4-send-command (process-buffer process)
 					 process
 					 (format "select \"%s\"" 
-						 (elmo-imap4-spec-folder
+						 (elmo-imap4-spec-mailbox
 						  spec)))
 		(setq msgdb (elmo-msgdb-load (elmo-string folder)))
 		(setq response (elmo-imap4-read-response 
@@ -719,7 +719,7 @@ Returns nil if selecting folder was in failure."
 		(progn
 		  (setcar (cddr connection) nil)
 		  (error "Select folder failed"))
-	      (setcar (cddr connection) (elmo-imap4-spec-folder spec))))
+	      (setcar (cddr connection) (elmo-imap4-spec-mailbox spec))))
 	  (if response msgdb)))
     (elmo-msgdb-load (elmo-string folder))))