From: teranisi <teranisi>
Date: Thu, 20 Apr 2000 08:54:43 +0000 (+0000)
Subject: * wl-mime.el (wl-message-request-partial):
X-Git-Tag: wl-1_1_1~37
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8991841dee3fcd7d0c854836b894df0b6798b547;p=elisp%2Fwanderlust.git

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