(select-window buf-win)
              (set-buffer buf))
            (setq wl-folder-buffer-cur-entity-id entity-id)
-           (setq wl-folder-buffer-cur-path (wl-folder-get-path wl-folder-entity
-                                                               entity-id))
+           (setq wl-folder-buffer-cur-path
+                 (wl-folder-get-path wl-folder-entity entity-id))
            (wl-highlight-folder-path wl-folder-buffer-cur-path)
            (and wl-folder-move-cur-folder
                 wl-folder-buffer-cur-point