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

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index d91c62a..9d0f580 100644 (file)
--- 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))
       ;;