From: teranisi <teranisi>
Date: Thu, 20 Apr 2000 08:49:37 +0000 (+0000)
Subject: (elmo-read-msg-no-cache): Eliminated arguments after `outbuf'.
X-Git-Tag: wl-1_1_1~39
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6eba526196bb4afcf25c2b10a841c19430c86237;p=elisp%2Fwanderlust.git

(elmo-read-msg-no-cache): Eliminated arguments after `outbuf'.
Don't use cache even if it exists.
(elmo-read-msg): Don't pass arguments after `outbuf' to
`elmo-read-msg-no-cache'.
---

diff --git a/elmo/elmo2.el b/elmo/elmo2.el
index 57ef079..abd4546 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/04/20 10:03:08 teranisi>
+;; Time-stamp: <00/04/20 13:46:16 teranisi>
 
 ;; This file is part of ELMO (Elisp Library for Message Orchestration).
 
@@ -135,21 +135,10 @@
 	   (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 force-reload)
-  "Read messsage into outbuf without cacheing.
-If msgdb is specified, use cache."
-  (let (ret-val)
-    (when (and (not force-reload)
-	       msgdb)
-      (set-buffer outbuf)
-      (erase-buffer)
-      (setq ret-val
-	    (elmo-cache-read 
-	     ;; message-id
-	     (cdr (assq msg (elmo-msgdb-get-number-alist msgdb)))
-	     folder msg)))
-    (if (not ret-val)
-	(elmo-call-func folder "read-msg" msg outbuf))))
+(defun elmo-read-msg-no-cache (folder msg outbuf)
+  "Read messsage specified by FOLDER and MSG(number) into OUTBUF
+without cacheing."
+  (elmo-call-func folder "read-msg" msg outbuf))
 
 (defun elmo-force-cache-msg (folder number msgid &optional loc-alist)
   "Force cache message."
@@ -221,7 +210,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 force-reload)
+	(elmo-read-msg-no-cache folder msg outbuf)
       (elmo-read-msg-with-cache folder msg outbuf msgdb force-reload))))
 
 (defun elmo-read-msg-with-cache (folder msg outbuf msgdb