From: teranisi <teranisi>
Date: Tue, 30 Apr 2002 08:31:56 +0000 (+0000)
Subject: * wl-summary.el: Fixed last change.
X-Git-Tag: elmo-mark-root~185
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=85b8710856f65c5514d99873cd56d6e71b06d29b;p=elisp%2Fwanderlust.git

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

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 13ff4bd..c2597c8 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4245,7 +4245,7 @@ If ARG, exit virtual folder."
 	(folder wl-summary-buffer-elmo-folder)
 	(number (elmo-msgdb-overview-entity-get-number entity))
 	no-parent from subject parent-raw-subject parent-subject
-	line
+	line mark
 	(elmo-lang wl-summary-buffer-weekday-name-lang)
 	(children-num (if thr-children-number
 			  (int-to-string thr-children-number))))
@@ -4275,7 +4275,6 @@ If ARG, exit virtual folder."
     (setq parent-subject
 	  (if parent-raw-subject
 	      (elmo-delete-char ?\n parent-raw-subject)))
-    (setq mark (or (elmo-message-mark folder number) " "))
     (setq line
 	  (concat
 	   (format (concat "%"
@@ -4284,7 +4283,7 @@ If ARG, exit virtual folder."
 			   "s%s%s%s %s")
 		   number
 		   (or temp-mark " ")
-		   mark
+		   (setq mark (or (elmo-message-mark folder number) " "))
 		   (wl-summary-format-date
 		    (elmo-msgdb-overview-entity-get-date entity))
 		   (or thr-indent-string ""))