X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-access.el;h=5f7e17518f4a95b01062bd42f93808d7601ff847;hb=697dc1db8069eea6fa28386c2271ccbeb3618898;hp=4aa955b92bfe47efd7b94a1d5cb5ffe842eef365;hpb=3095c8a8f037224fe6307aac0230f30ace665b77;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-access.el b/elmo/elmo-access.el
index 4aa955b..5f7e175 100644
--- a/elmo/elmo-access.el
+++ b/elmo/elmo-access.el
@@ -42,10 +42,10 @@
 (luna-define-method elmo-folder-initialize ((folder elmo-access-folder) name)
   (elmo-access-folder-set-base-folder-internal
    folder
-   (elmo-make-folder name))
+   (elmo-get-folder name))
   (elmo-multi-folder-set-children-internal
    folder
-   (mapcar #'elmo-make-folder
+   (mapcar #'elmo-get-folder
 	   (elmo-object-load
 	    (expand-file-name elmo-access-folder-list-filename
 			      (elmo-folder-msgdb-path folder)))))
@@ -53,6 +53,7 @@
    folder
    elmo-multi-divide-number)
   (elmo-access-folder-update-children folder)
+  (elmo-multi-connect-signals folder)
   folder)
 
 (luna-define-method elmo-folder-expand-msgdb-path ((folder elmo-access-folder))
@@ -88,7 +89,7 @@
 	 (if subfolders
 	     (nconc children
 		    (mapcar (lambda (name)
-			      (let ((folder (elmo-make-folder name)))
+			      (let ((folder (elmo-get-folder name)))
 				(when open
 				  (elmo-folder-open-internal folder))
 				folder))