* elmo-net.el (elmo-message-fetch-unplugged): Don't call

`elmo-message-fetch'.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index c36e2cc..3f90cf8 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-11  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-net.el (elmo-message-fetch-unplugged): Don't call
+       `elmo-message-fetch'.
+
 2001-05-10  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo-net.el (elmo-message-encache): Fixed typo.

diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index 3ffdc5f..d3af2cc 100644 (file)
--- a/elmo/elmo-net.el
+++ b/elmo/elmo-net.el
@@ -513,21 +513,11 @@ Returns a process object.  if making session failed, returns nil."
 
 (luna-define-method elmo-message-fetch-unplugged
   ((folder elmo-net-folder) number strategy  &optional section outbuf unseen)
-  (if elmo-enable-disconnected-operation
-      (if (< number 0)
-         (elmo-message-fetch-internal
-          (elmo-dop-spool-folder folder) (abs number) strategy
-          section unseen)
-       (elmo-message-fetch
-        folder number
-        ;; fetch with entire cache process.
-        (elmo-make-fetch-strategy 'entire
-                                  t nil
-                                  (elmo-file-cache-path 
-                                   (elmo-file-cache-get
-                                    (elmo-message-field folder number
-                                                        'message-id))))
-        section outbuf unseen))
+  (if (and elmo-enable-disconnected-operation
+          (< number 0))
+      (elmo-message-fetch-internal
+       (elmo-dop-spool-folder folder) (abs number) strategy
+       section unseen)
     (error "Unplugged")))
 
 (luna-define-method elmo-folder-check ((folder elmo-net-folder))