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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 79c7ebe..43abc7f 100644 (file)
--- 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 (file)
--- 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.