From: hmurata <hmurata>
Date: Wed, 23 Mar 2005 06:08:07 +0000 (+0000)
Subject: * modb-entity.el (elmo-msgdb-message-entity-set-number): Return
X-Git-Tag: wl-2_15_3~108
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=07caebfa1b8717f97ad7de1c4d13be57abf3a216;p=elisp%2Fwanderlust.git

* modb-entity.el (elmo-msgdb-message-entity-set-number): Return
`number'.

* elmo-multi.el (elmo-message-entity): Don't use return value of
`elmo-message-entity-set-number'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 5f003fa..b250dbb 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,11 @@
+2005-03-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* modb-entity.el (elmo-msgdb-message-entity-set-number): Return
+	`number'.
+
+	* elmo-multi.el (elmo-message-entity): Don't use return value of
+	`elmo-message-entity-set-number'.
+
 2005-03-22  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* modb.el (modb-generic): Added slot `mime-charset'.
diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
index 6c47a55..4919aee 100644
--- a/elmo/elmo-multi.el
+++ b/elmo/elmo-multi.el
@@ -224,8 +224,9 @@
     (let* ((pair (elmo-multi-real-folder-number folder key))
 	   (entity (elmo-message-entity (car pair) (cdr pair))))
       (when entity
-	(elmo-message-entity-set-number (elmo-message-copy-entity entity)
-					key))))
+	(setq entity (elmo-message-copy-entity entity))
+	(elmo-message-entity-set-number entity key)
+	entity)))
    ((stringp key)
     (let ((children (elmo-multi-folder-children-internal folder))
 	  (cur-number 0)
diff --git a/elmo/modb-entity.el b/elmo/modb-entity.el
index 3315709..1a08083 100644
--- a/elmo/modb-entity.el
+++ b/elmo/modb-entity.el
@@ -495,8 +495,7 @@ If each field is t, function is set as default converter."
 
 (luna-define-method elmo-msgdb-message-entity-set-number
   ((handler modb-legacy-entity-handler) entity number)
-  (and entity (aset (cdr entity) 0 number))
-  entity)
+  (and entity (aset (cdr entity) 0 number)))
 
 (luna-define-method elmo-msgdb-message-entity-field
   ((handler modb-legacy-entity-handler) entity field &optional type)