From: teranisi <teranisi>
Date: Tue, 17 Sep 2002 12:36:02 +0000 (+0000)
Subject: * wl-summary.el: Fixed last change.
X-Git-Tag: elmo-mark-restart~135
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5d4a3968db9238c97e353a78c8f8df8fae16c08d;p=elisp%2Fwanderlust.git

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

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 8a11250..355de2d 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1700,11 +1700,12 @@ If ARG is non-nil, checking is omitted."
 	   (msgdb (wl-summary-buffer-msgdb))
 	   (number-alist (elmo-msgdb-get-number-alist msgdb))
 	   (case-fold-search nil)
-	   mark number unread)
-      (setq mark (wl-summary-persistent-mark)
-	    number (wl-summary-message-number)
-	    new-mark (elmo-msgdb-set-cached msgdb number nil))
-      (when new-mark
+	   new-mark mark number unread)
+      (setq number (wl-summary-message-number))
+      (elmo-msgdb-set-cached msgdb number nil)
+      (setq new-mark (elmo-message-mark folder number)
+	    mark (wl-summary-persistent-mark))
+      (unless (string= new-mark mark)
 	(delete-backward-char 1)
 	(insert new-mark)
 	(elmo-file-cache-delete
@@ -1712,8 +1713,8 @@ If ARG is non-nil, checking is omitted."
 	  (elmo-message-field wl-summary-buffer-elmo-folder
 			      number
 			      'message-id)))
-	(elmo-msgdb-set-mark msgdb number new-mark)
-	(wl-summary-set-mark-modified)
+	;; (elmo-msgdb-set-mark msgdb number new-mark)
+	;; (wl-summary-set-mark-modified)
 	(if wl-summary-highlight
 	    (wl-highlight-summary-current-line nil nil t))
 	(set-buffer-modified-p nil)))))
@@ -3927,7 +3928,7 @@ If ARG, exit virtual folder."
 	  (folder wl-summary-buffer-elmo-folder)
 	  (msgdb (wl-summary-buffer-msgdb))
 	  (case-fold-search nil)
-	  old-mark visible new-mark)
+	  mark visible new-mark)
       (setq visible (if number
 			(wl-summary-jump-to-msg number)
 		      ;; interactive