* wl-summary.el (wl-summary-mark-as-read): Run hook within dolist.

Resume current-buffer since it is assumed by remaining tasks.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0c203b6..1ecdf65 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-13  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * 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  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * 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 (file)
--- 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)