From 4980ee8bf4945580b5f4737300fed3305c152607 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 13 Feb 2003 05:08:41 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-mark-as-read): Run hook within dolist. Resume current-buffer since it is assumed by remaining tasks. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 0c203b6..1ecdf65 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2003-02-13 Yoichi NAKAYAMA + + * wl-summary.el (wl-summary-mark-as-read): Run hook within dolist. + Resume current-buffer since it is assumed by remaining tasks. + 2003-02-12 Yoichi NAKAYAMA * wl-folder.el (wl-folder-complete-folder-candidate): New variable. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 5621590..31e2886 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4023,9 +4023,10 @@ If ARG, exit virtual folder." (elmo-msgdb-set-mark msgdb number new-mark)) (wl-summary-set-mark-modified)) (if (and visible wl-summary-highlight) - (wl-highlight-summary-current-line nil nil t))) - (if stat - (run-hooks 'wl-summary-unread-message-hook)) + (wl-highlight-summary-current-line nil nil t)) + (if stat + (save-current-buffer ; assumed by remaining + (run-hooks 'wl-summary-unread-message-hook)))) (wl-summary-update-modeline) (wl-folder-update-unread (wl-summary-buffer-folder-name) -- 1.7.10.4