X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-multi.el;h=4919aee0787ae41d9ad605706d742887ea88c4fd;hb=07caebfa1b8717f97ad7de1c4d13be57abf3a216;hp=6c47a55b971d772509c35d55f3bfaeddbee4133a;hpb=d586f6b9a1d6c210b2e394a7bf2e1913130cb31b;p=elisp%2Fwanderlust.git

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)