From: hmurata <hmurata>
Date: Fri, 11 May 2001 02:28:06 +0000 (+0000)
Subject: * elmo-net.el (elmo-message-fetch-unplugged): Don't call
X-Git-Tag: wl-2_6-root^3~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5c9197d11a41633b43190a9da18624e22a46763d;p=elisp%2Fwanderlust.git

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