From 0c635d227c3d49b8890a7dbb498a52464b71baf0 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 20 Apr 2000 01:06:34 +0000 Subject: [PATCH] (elmo-read-msg-no-cache): Added `force-reload' argument. (elmo-read-msg): Pass `force-reload' argument to `elmo-read-msg-no-cache'. --- elmo/elmo2.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/elmo/elmo2.el b/elmo/elmo2.el index 79dc003..57ef079 100644 --- a/elmo/elmo2.el +++ b/elmo/elmo2.el @@ -4,7 +4,7 @@ ;; Author: Yuuichi Teranishi ;; Keywords: mail, net news -;; Time-stamp: <00/03/14 19:43:10 teranisi> +;; Time-stamp: <00/04/20 10:03:08 teranisi> ;; This file is part of ELMO (Elisp Library for Message Orchestration). @@ -135,11 +135,12 @@ (elmo-msgdb-rename-path old-folder new-folder)) (elmo-dop-rename-folder old-folder new-folder))))) -(defun elmo-read-msg-no-cache (folder msg outbuf &optional msgdb) +(defun elmo-read-msg-no-cache (folder msg outbuf &optional msgdb force-reload) "Read messsage into outbuf without cacheing. If msgdb is specified, use cache." (let (ret-val) - (when msgdb + (when (and (not force-reload) + msgdb) (set-buffer outbuf) (erase-buffer) (setq ret-val @@ -220,7 +221,7 @@ If msgdb is specified, use cache." "Read message into outbuf." (let ((inhibit-read-only t)) (if (not (elmo-use-cache-p folder msg)) - (elmo-read-msg-no-cache folder msg outbuf msgdb) + (elmo-read-msg-no-cache folder msg outbuf msgdb force-reload) (elmo-read-msg-with-cache folder msg outbuf msgdb force-reload)))) (defun elmo-read-msg-with-cache (folder msg outbuf msgdb -- 1.7.10.4