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