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

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a657501..1ccc7fe 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,6 +1,6 @@
 2002-09-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
-	* wl-summary.el (wl-summary-prefetch-msg): Use elmo-msgdb-set-cached.
+	* wl-summary.el (wl-summary-prefetch-msg): Use elmo-message-set-cached.
 	(wl-summary-delete-cache): Likewise.
 	(wl-summary-mark-as-read): Rewrite.
 
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 355de2d..d91c62a 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1424,7 +1424,8 @@ If ARG is non-nil, checking is omitted."
 			(elmo-message-encache
 			 wl-summary-buffer-elmo-folder
 			 number))
-		    (elmo-msgdb-set-cached msgdb number t)
+		    (elmo-message-set-cached wl-summary-buffer-elmo-folder
+					     number t)
 		    (setq new-mark
 			  (or (elmo-message-mark wl-summary-buffer-elmo-folder
 						 number)
@@ -1702,7 +1703,7 @@ If ARG is non-nil, checking is omitted."
 	   (case-fold-search nil)
 	   new-mark mark number unread)
       (setq number (wl-summary-message-number))
-      (elmo-msgdb-set-cached msgdb number nil)
+      (elmo-message-set-cached folder number nil)
       (setq new-mark (elmo-message-mark folder number)
 	    mark (wl-summary-persistent-mark))
       (unless (string= new-mark mark)
@@ -3937,7 +3938,7 @@ If ARG, exit virtual folder."
 	    mark (elmo-message-mark folder number))
       ;; folder mark.
       (elmo-folder-mark-as-read folder (list number) no-folder-mark)
-      (elmo-msgdb-set-cached msgdb number t)
+      (elmo-message-set-cached folder number t)
       (setq new-mark (elmo-message-mark folder number))
       ;;
       ;; elmo-folder-mark-as-read should return unread numbers?