From 4c43e8e7fe9d6529cf64a38bb4bb14f237552ccb Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 15 May 2002 10:42:06 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-mark-as-read): Fixed last change. --- wl/wl-summary.el | 24 ++++++++++-------------- 1 file changed, 10 insertions(+), 14 deletions(-) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 449e053..cccea56 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -3895,20 +3895,16 @@ If ARG, exit virtual folder." ;; interactive t) mark (elmo-msgdb-get-mark msgdb number)) - (when (or (string= mark wl-summary-read-uncached-mark) - (string= mark wl-summary-unread-uncached-mark) - (string= mark wl-summary-unread-cached-mark) - (string= mark wl-summary-new-mark)) - (cond - ((string= mark wl-summary-new-mark) ; N - (setq stat 'new)) - ((string= mark wl-summary-unread-uncached-mark) ; U - (setq stat 'unread)) - ((string= mark wl-summary-unread-cached-mark) ; ! - (setq stat 'unread)) - (t - ;; no need to mark server. - (setq no-folder-mark t)))) + (cond + ((string= mark wl-summary-new-mark) ; N + (setq stat 'new)) + ((string= mark wl-summary-unread-uncached-mark) ; U + (setq stat 'unread)) + ((string= mark wl-summary-unread-cached-mark) ; ! + (setq stat 'unread)) + (t + ;; no need to mark server. + (setq no-folder-mark t))) (setq new-mark (if (and (if (elmo-message-use-cache-p folder number) (not (elmo-folder-local-p folder))) -- 1.7.10.4