* wl-summary.el (wl-summary-exit): Set last visited folder.

* wl-folder.el (wl-folder-set-current-entity-id): Change condition to set
last visited folder.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 764b131..4419d97 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -3,9 +3,10 @@
        * wl-folder.el (wl-folder-jump-to-current-entity): Cosmetic fix.
        (wl-folder-buffer-last-visited-entity-id): New buffer local
        variable.
-       (wl-folder-set-current-entity-id): Set last visited folder.
        (wl-folder-revisit-last-visited-folder): New function.
        (wl-folder-mode-map): Bind it to "C-i".
+       (wl-folder-set-current-entity-id): Set last visited folder.
+       * wl-summary.el (wl-summary-exit): Ditto.
 
 2004-01-15  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 42d4bd6..89babbf 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -980,7 +980,8 @@ Optional argument ARG is repeart count."
            (if buf-win
                (select-window buf-win)
              (set-buffer buf))
-           (when wl-folder-buffer-cur-entity-id
+           (when (and wl-folder-buffer-cur-entity-id
+                      (not (eq wl-folder-buffer-cur-entity-id entity-id)))
              (setq wl-folder-buffer-last-visited-entity-id wl-folder-buffer-cur-entity-id))
            (setq wl-folder-buffer-cur-entity-id entity-id)
            (setq wl-folder-buffer-cur-path

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 4a07aac..d6306df 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1164,6 +1164,7 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
             wl-folder-buffer-cur-point
             (goto-char wl-folder-buffer-cur-point))
        (setq wl-folder-buffer-cur-path nil)
+       (setq wl-folder-buffer-last-visited-entity-id wl-folder-buffer-cur-entity-id)
        (setq wl-folder-buffer-cur-entity-id nil)
        (wl-delete-all-overlays)
        (if wl-summary-exit-next-move