From d92a5aa787bbe67b42179aa9896bccaf7e4bf808 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 17 Sep 2002 12:53:25 +0000 Subject: [PATCH] * wl-summary.el: Fixed last change, again. --- wl/wl-summary.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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)) ;; -- 1.7.10.4