* 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 (file)
--- 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 (file)
--- 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