-(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))