From: teranisi <teranisi>
Date: Thu, 20 Jan 2005 01:55:50 +0000 (+0000)
Subject: * mmimap.el (mmimap-make-mime-entity): Set children's top node number
X-Git-Tag: wl-2_14-root~81
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f89e8a845dad0268017ffb0a30ac8d9d23477262;p=elisp%2Fwanderlust.git

* mmimap.el (mmimap-make-mime-entity): Set children's top node number
as nil.

* elmo.el (elmo-message-fetch): Return t even when the output buffer
size of elmo-message-fetch-internal is 0 byte.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 5c5d092..08d3182 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,11 @@
+2005-01-20  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mmimap.el (mmimap-make-mime-entity): Set children's top node number
+	as nil.
+
+	* elmo.el (elmo-message-fetch): Return t even when the output buffer
+	size of elmo-message-fetch-internal is 0 byte.
+
 2005-01-14  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-maildir.el (elmo-map-message-fetch): Fixed last change.
diff --git a/elmo/elmo.el b/elmo/elmo.el
index 5b975bc..58f65b6 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1419,13 +1419,12 @@ If Optional LOCAL is non-nil, don't update server flag."
 	      (cache
 	       (elmo-file-cache-load cache-path section))
 	      (entity
-	       (when (and (condition-case error
-			      (elmo-message-fetch-internal folder number
-							   strategy
-							   section
-							   unread)
-			    (error (setq err error) nil))
-			  (> (buffer-size) 0))
+	       (when (condition-case error
+			 (elmo-message-fetch-internal folder number
+						      strategy
+						      section
+						      unread)
+		       (error (setq err error) nil))
 		 (setq updated-server-flag t)
 		 (when (and (elmo-fetch-strategy-save-cache strategy)
 			    cache-path)
diff --git a/elmo/mmimap.el b/elmo/mmimap.el
index f0e33a2..a7f0e16 100644
--- a/elmo/mmimap.el
+++ b/elmo/mmimap.el
@@ -148,7 +148,7 @@ CLASS, LOCATION, NODE-ID, PARENT are set to the returned entity."
 	   entity
 	   (list (mmimap-make-mime-entity
 		  (nth 8 bodystructure) class
-		  location node-id 0
+		  location node-id nil
 		  entity))))
       entity))))