* wl-mime.el (wl-message-request-partial):

 Eliminated argument `msgdb'.
 Don't pass `msgdb' argument to `elmo-read-msg-no-cache'.
 (wl-mime-combine-message/partial-pieces): Likewise.
* tm-wl.el (wl-message-request-partial): Likewise.
 (wl-mime-combine-message/partial-pieces): Likewise.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9646df7..2372630 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,12 @@
+2000-04-20  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-mime.el (wl-message-request-partial):
+       Eliminated argument `msgdb'.
+       Don't pass `msgdb' argument to `elmo-read-msg-no-cache'.
+       (wl-mime-combine-message/partial-pieces): Likewise.
+       * tm-wl.el (wl-message-request-partial): Likewise.
+       (wl-mime-combine-message/partial-pieces): Likewise.
+
 2000-04-17  Yoshiki Hayashi  <yoshiki@xemacs.org>
 
        * wl-summary.el (wl-summary-sync-marks): Remove progress gauge

diff --git a/wl/tm-wl.el b/wl/tm-wl.el
index 6e14c9a..7507111 100644 (file)
--- a/wl/tm-wl.el
+++ b/wl/tm-wl.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/04/10 23:47:38 teranisi>
+;; Time-stamp: <00/04/20 13:45:03 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -100,9 +100,9 @@ By setting following-method as yank-content."
        (if (setq mime-out-win (get-buffer-window mime-out-buf))
            (delete-window mime-out-win)))))
 
-(defun wl-message-request-partial (folder number msgdb)
+(defun wl-message-request-partial (folder number)
   (elmo-set-work-buf
-   (elmo-read-msg-no-cache folder number (current-buffer) msgdb)
+   (elmo-read-msg-no-cache folder number (current-buffer))
    (mime/parse-message nil nil)))
 
 (defalias 'wl-message-read            'mime-viewer/scroll-up-content)
@@ -233,8 +233,7 @@ By setting following-method as yank-content."
              (setq cinfo
                    (wl-message-request-partial
                     folder
-                    (elmo-msgdb-overview-entity-get-number (car overviews))
-                    msgdb))
+                    (elmo-msgdb-overview-entity-get-number (car overviews))))
              (setq parameters (mime::content-info/parameters cinfo))
              (setq the-id (assoc-value "id" parameters))
              (if (string= the-id id)

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index c715fe0..df1ba13 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-04-10 23:49:34 teranisi>
+;; Time-stamp: <2000-04-20 17:43:19 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -192,9 +192,9 @@ By setting following-method as yank-content."
        (if (setq mime-out-win (get-buffer-window mime-out-buf))
            (delete-window mime-out-win)))))
 
-(defun wl-message-request-partial (folder number msgdb)
+(defun wl-message-request-partial (folder number)
   (elmo-set-work-buf
-   (elmo-read-msg-no-cache folder number (current-buffer) msgdb)
+   (elmo-read-msg-no-cache folder number (current-buffer))
    (mime-parse-buffer nil))); 'mime-buffer-entity)))
 
 (defalias 'wl-message-read            'mime-preview-scroll-up-entity)
@@ -313,8 +313,7 @@ automatically."
                    ;; request message at the cursor in Subject buffer.
                    (wl-message-request-partial
                     folder
-                    (elmo-msgdb-overview-entity-get-number (car overviews))
-                    msgdb))
+                    (elmo-msgdb-overview-entity-get-number (car overviews))))
                   (situation (mime-entity-situation message))
                   (the-id (or (cdr (assoc "id" situation)) "")))
              (when (string= (downcase the-id)