From: teranisi <teranisi>
Date: Mon, 16 Feb 2004 15:30:06 +0000 (+0000)
Subject: * elmo.el (elmo-message-fetch-bodystructure): New method.
X-Git-Tag: wl-2_11_25~62
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d48151c820de1e85d35bd4d0432ddf0bc40a7c85;p=elisp%2Fwanderlust.git

* elmo.el (elmo-message-fetch-bodystructure): New method.
(elmo-message-fetch-bodystructure): Define default.

* elmo-imap4.el (mime-imap-location-bodystructure): Call
elmo-message-fetch-bodystructure.
(elmo-message-fetch-bodystructure): Define.

* elmo-filter.el (elmo-message-fetch-bodystructure): Define.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 82bcd81..6978184 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,14 @@
+2004-02-16  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo.el (elmo-message-fetch-bodystructure): New method.
+	(elmo-message-fetch-bodystructure): Define default.
+
+	* elmo-imap4.el (mime-imap-location-bodystructure): Call
+	elmo-message-fetch-bodystructure.
+	(elmo-message-fetch-bodystructure): Define.
+
+	* elmo-filter.el (elmo-message-fetch-bodystructure): Define.
+
 2004-02-15  Tetsurou Okazaki  <okazaki@be.to>
 
 	* elmo-filter.el (elmo-message-folder): Define.
diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el
index b555399..d387f8e 100644
--- a/elmo/elmo-filter.el
+++ b/elmo/elmo-filter.el
@@ -146,6 +146,13 @@
    (elmo-filter-folder-target-internal folder)
    flag number))
 
+(luna-define-method elmo-message-fetch-bodystructure ((folder
+						       elmo-filter-folder)
+						      number strategy)
+  (elmo-message-fetch-bodystructure
+   (elmo-filter-folder-target-internal folder)
+   number strategy))
+
 (luna-define-method elmo-message-fetch ((folder elmo-filter-folder)
 					number strategy
 					&optional section outbuf unseen)
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 01cd9c7..26215d3 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -457,7 +457,7 @@ If response is not `OK' response, causes error with IMAP response text."
 
 (luna-define-method mime-imap-location-bodystructure
   ((location mime-elmo-imap-location))
-  (elmo-imap4-fetch-bodystructure
+  (elmo-message-fetch-bodystructure
    (mime-elmo-imap-location-folder-internal location)
    (mime-elmo-imap-location-number-internal location)
    (mime-elmo-imap-location-strategy-internal location)))
@@ -618,8 +618,9 @@ BUFFER must be a single-byte buffer."
 	       (car (nth 1 entry))))
 	 response)))
 
-(defun elmo-imap4-fetch-bodystructure (folder number strategy)
-  "Fetch BODYSTRUCTURE for the message in the FOLDER with NUMBER using STRATEGY."
+(luna-define-method elmo-message-fetch-bodystructure ((folder
+						       elmo-imap4-folder)
+						      number strategy)
   (if (elmo-fetch-strategy-use-cache strategy)
       (elmo-object-load
        (elmo-file-cache-expand-path
diff --git a/elmo/elmo.el b/elmo/elmo.el
index 5603a18..069998a 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -577,6 +577,9 @@ If READ is non-nil, message is flaged as read.")
      nil nil (not read))
     path))
 
+(luna-define-generic elmo-message-fetch-bodystructure (folder number strategy)
+  "Fetch bodystructure of the message in FOLDER with NUMBER using STRATEGY.")
+
 (luna-define-generic elmo-message-fetch (folder number strategy
 						&optional
 						section
@@ -1296,6 +1299,10 @@ If Optional LOCAL is non-nil, don't update server flag."
 	  (nthcdr (max (- len elmo-folder-update-threshold) 0) appends)
 	appends))))
 
+(luna-define-method elmo-message-fetch-bodystructure ((folder elmo-folder)
+						      number strategy)
+  nil)
+
 (luna-define-method elmo-message-fetch ((folder elmo-folder)
 					number strategy
 					&optional