* wl-e21.el (wl-draft-insert-signature): Fix comment style.

[elisp/wanderlust.git] / elmo / elmo-access.el

diff --git a/elmo/elmo-access.el b/elmo/elmo-access.el
index 4aa955b..5f7e175 100644 (file)
--- 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))