From: yoichi <yoichi>
Date: Thu, 13 Feb 2003 05:08:41 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-mark-as-read): Run hook within dolist.
X-Git-Tag: wl-2_11_3~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4980ee8bf4945580b5f4737300fed3305c152607;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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)