From: teranisi <teranisi>
Date: Tue, 9 Oct 2001 09:31:35 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-folder-initialize): Use `elmo-imap4-encode-folder-string'
X-Git-Tag: wl-2_7_5~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=32374775777296f74769e8973e682062af60ba27;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-folder-initialize): Use `elmo-imap4-encode-folder-string'
 for folder name.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 2a85cc0..c640973 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el (elmo-folder-initialize): Use
+	`elmo-imap4-encode-folder-string' for folder name.
+
 2001-10-08  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo.el (elmo-folder-move-messages): Removed arguments `all' and
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index eb9ff61..22f3c1e 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1753,16 +1753,19 @@ Return nil if no complete line has arrived."
 	    (progn
 	      (elmo-imap4-folder-set-mailbox-internal
 	       folder
-	       (elmo-match-string 1 name))
+	       (elmo-imap4-encode-folder-string
+		(elmo-match-string 1 name)))
 	      (if (eq (length (elmo-imap4-folder-mailbox-internal folder))
 		      0)
 		  ;; No information is specified other than folder type.
 		  (elmo-imap4-folder-set-mailbox-internal
 		   folder
-		   elmo-imap4-default-mailbox)))
+		   (elmo-imap4-encode-folder-string
+		    elmo-imap4-default-mailbox))))
 	  (elmo-imap4-folder-set-mailbox-internal
 	   folder
-	   elmo-imap4-default-mailbox))
+	   (elmo-imap4-encode-folder-string
+	    elmo-imap4-default-mailbox)))
 	;; Setup slots for elmo-net-folder.
 	(elmo-net-folder-set-user-internal
 	 folder