From 63f32f62edcc25462175031895c6a3de3c402147 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 11 Jul 2002 04:44:02 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-goto-folder-subr): Keep value of `this-command' so that `wl-folder-goto-folder' contained in `wl-summary-keep-cursor-command' work. --- wl/ChangeLog | 6 ++++++ wl/wl-folder.el | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index c68d7b8..51c899d 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2002-07-11 Yoichi NAKAYAMA + + * wl-folder.el (wl-folder-goto-folder-subr): Keep value of + `this-command' so that `wl-folder-goto-folder' contained in + `wl-summary-keep-cursor-command' work. + 2002-07-10 Yoichi NAKAYAMA * wl-summary.el (wl-summary-jump-to-parent-message): Keep diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 3e16795..6ac0f2e 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -2211,7 +2211,8 @@ Use `wl-subscribed-mailing-list'." ;;; (assoc fld-name wl-folder-group-alist)) (setq fld-name wl-default-folder) (setq fld-name (or folder - (wl-summary-read-folder fld-name))) + (let (this-command) + (wl-summary-read-folder fld-name)))) (if (and (setq entity (wl-folder-search-entity-by-name fld-name wl-folder-entity -- 1.7.10.4