From: yamaoka <yamaoka>
Date: Wed, 13 Sep 2000 08:19:20 +0000 (+0000)
Subject: (wl-folder-entity-assign-id): Undo the last change.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=33dc3f200cae05b9622d92bf36d3b32feabe23c3;p=elisp%2Fwanderlust.git

(wl-folder-entity-assign-id): Undo the last change.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 576e616..7e21d28 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-13  Katsumi Yamaoka    <yamaoka@jpl.org>
+
+	* wl-folder.el (wl-folder-entity-assign-id): Undo the last change.
+
 2000-09-11  Katsumi Yamaoka    <yamaoka@jpl.org>
 
 	* wl-e21.el (wl-e21-highlight-folder-group-icon): New function.
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 0dd4ef7..cc5d4c7 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -1261,12 +1261,12 @@ If current line is group folder, all subfolders are marked."
 			(get-text-property 0
 					   'wl-folder-entity-id
 					   (car entity))))
-	  (wl-folder-set-id-name wl-folder-entity-id
-				 (copy-sequence (car entity)) hashtb)
 	  (put-text-property 0 (length (car entity))
 			     'wl-folder-entity-id
 			     wl-folder-entity-id
-			     (car entity)))
+			     (car entity))
+	  (wl-folder-set-id-name wl-folder-entity-id
+				 (car entity) hashtb))
 	(and entities
 	     (wl-push entities entity-stack))
 	(setq entities (nth 2 entity)))
@@ -1275,12 +1275,12 @@ If current line is group folder, all subfolders are marked."
 			(get-text-property 0
 					   'wl-folder-entity-id
 					   entity)))
-	  (wl-folder-set-id-name wl-folder-entity-id
-				 (copy-sequence entity) hashtb)
 	  (put-text-property 0 (length entity)
 			     'wl-folder-entity-id
 			     wl-folder-entity-id
-			     entity))))
+			     entity)
+	  (wl-folder-set-id-name wl-folder-entity-id
+				 entity hashtb))))
       (setq wl-folder-entity-id (+ 1 wl-folder-entity-id))
       (unless entities
 	(setq entities (wl-pop entity-stack))))))