From 1827acf32f105115893849544307887aa1a1f219 Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 20 Jan 2004 16:46:36 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 3 ++- wl/wl-folder.el | 3 ++- wl/wl-summary.el | 1 + 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 764b131..4419d97 100644 --- 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 diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 42d4bd6..89babbf 100644 --- 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 --- 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 -- 1.7.10.4