From: teranisi <teranisi>
Date: Tue, 17 Sep 2002 12:45:31 +0000 (+0000)
Subject: * elmo.el (elmo-message-set-cached): New function.
X-Git-Tag: elmo-mark-restart~134
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1bde62cfb71986794b6ecfcd752ef73a03c16aee;p=elisp%2Fwanderlust.git

* elmo.el (elmo-message-set-cached): New function.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 79c7ebe..43abc7f 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -2,6 +2,7 @@
 
 	* elmo.el (elmo-folder-mark-as-read): Added argument `ignore-flag'.
 	(elmo-folder-mark-as-read): Follow the API change.
+	(elmo-message-set-cached): New function.
 
 	* elmo-pipe.el (elmo-folder-mark-as-read): Follow the API change.
 
diff --git a/elmo/elmo.el b/elmo/elmo.el
index 5d587da..2047f62 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1109,6 +1109,14 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).")
        folder
        (elmo-folder-expand-msgdb-path folder))))
 
+(defun elmo-message-set-cached (folder number cached)
+  "Set cache status of the message mark.
+FOLDER is the ELMO folder structure.
+NUMBER is a number of the message.
+If CACHED is t, message mark is set as cached."
+  (elmo-msgdb-set-cached 
+   (elmo-folder-msgdb folder) number cached))
+
 (defun elmo-message-mark (folder number)
   "Get mark of the message.
 FOLDER is the ELMO folder structure.