From: teranisi <teranisi>
Date: Thu, 21 Jun 2001 00:36:21 +0000 (+0000)
Subject: * elmo.el (elmo-generic-folder-append-messages): Fixed logic.
X-Git-Tag: wl-2_7_2~44
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1ef23e2a98d6ebf9bb4ba308f7909766f8f93dce;p=elisp%2Fwanderlust.git

* elmo.el (elmo-generic-folder-append-messages): Fixed logic.
(Detected by NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>)
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index ea3f104..81714c2 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo.el (elmo-generic-folder-append-messages): Fixed logic.
+	(Detected by NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>)
+
 2001-06-20  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-util.el (elmo-get-network-stream-type): Moved to elmo-net.el.
diff --git a/elmo/elmo.el b/elmo/elmo.el
index 3d25d96..3937506 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -854,16 +854,14 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).")
 	      (elmo-message-fetch
 	       src-folder (car numbers)
 	       (if (and (not (elmo-folder-plugged-p src-folder))
-			elmo-enable-disconnected-operation)
-		   (if (and (setq cache (elmo-file-cache-get
-					 (elmo-message-field
-					  src-folder (car numbers)
-					  'message-id)))
-			    (eq (elmo-file-cache-status cache) 'entire))
-		       (elmo-make-fetch-strategy
-			'entire
-			t
-			nil (elmo-file-cache-path cache)))
+			elmo-enable-disconnected-operation
+			(setq cache (elmo-file-cache-get
+				     (elmo-message-field
+				      src-folder (car numbers)
+				      'message-id)))
+			(eq (elmo-file-cache-status cache) 'entire))
+		   (elmo-make-fetch-strategy
+		    'entire t nil (elmo-file-cache-path cache))
 		 (elmo-make-fetch-strategy 'entire))
 	       nil (current-buffer)
 	       'unread)