From: teranisi <teranisi>
Date: Thu, 20 Apr 2000 01:06:34 +0000 (+0000)
Subject: (elmo-read-msg-no-cache): Added `force-reload' argument.
X-Git-Tag: wl-1_1_1~41
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0c635d227c3d49b8890a7dbb498a52464b71baf0;p=elisp%2Fwanderlust.git

(elmo-read-msg-no-cache): Added `force-reload' argument.
(elmo-read-msg): Pass `force-reload' argument to `elmo-read-msg-no-cache'.
---

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 <teranisi@gohome.org>
 ;; 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