From: yoichi Date: Tue, 20 Jan 2004 16:46:36 +0000 (+0000) Subject: * wl-summary.el (wl-summary-exit): Set last visited folder. X-Git-Tag: wl-2_11_24~24 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1827acf32f105115893849544307887aa1a1f219;p=elisp%2Fwanderlust.git * 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 --- 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