From 1bde62cfb71986794b6ecfcd752ef73a03c16aee Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 17 Sep 2002 12:45:31 +0000 Subject: [PATCH] * elmo.el (elmo-message-set-cached): New function. --- elmo/ChangeLog | 1 + elmo/elmo.el | 8 ++++++++ 2 files changed, 9 insertions(+) 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. -- 1.7.10.4