From: teranisi <teranisi>
Date: Tue, 17 Sep 2002 12:53:25 +0000 (+0000)
Subject: * wl-summary.el: Fixed last change, again.
X-Git-Tag: elmo-mark-restart~131
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d92a5aa787bbe67b42179aa9896bccaf7e4bf808;p=elisp%2Fwanderlust.git

* wl-summary.el: Fixed last change, again.
---

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index d91c62a..9d0f580 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3936,8 +3936,9 @@ If ARG, exit virtual folder."
 		      t)
 	    number (or number (wl-summary-message-number))
 	    mark (elmo-message-mark folder number))
-      ;; folder mark.
-      (elmo-folder-mark-as-read folder (list number) no-folder-mark)
+      (when (member mark (elmo-msgdb-unread-marks))
+	;; folder mark.
+	(elmo-folder-mark-as-read folder (list number) no-folder-mark))
       (elmo-message-set-cached folder number t)
       (setq new-mark (elmo-message-mark folder number))
       ;;