From: teranisi <teranisi>
Date: Wed, 15 May 2002 10:42:06 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-mark-as-read): Fixed last change.
X-Git-Tag: elmo-mark-root~120
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4c43e8e7fe9d6529cf64a38bb4bb14f237552ccb;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-mark-as-read): Fixed last change.
---

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