From: teranisi <teranisi>
Date: Sun, 5 Sep 2004 04:15:37 +0000 (+0000)
Subject: (wl-folder-entity-assign-id): Fix for folder entity id.
X-Git-Tag: wl-2_11_31~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d1cc42b80eecfd530595efdd0540c04f3e0d0e87;p=elisp%2Fwanderlust.git

(wl-folder-entity-assign-id): Fix for folder entity id.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 75a505e..8d70ca9 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-05  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-folder.el (wl-folder-entity-assign-id): Fix for folder entity
+	id.
+
 2004-09-04  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-enter-handler): If argument is not a
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 9a497bf..d55bf97 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -1341,7 +1341,8 @@ If current line is group folder, all subfolders are marked."
 	   'is-group
 	   (car entity))
 	  (wl-folder-set-id-name wl-folder-entity-id
-				 (car entity) hashtb))
+				 (car entity) hashtb)
+	  (setq wl-folder-entity-id (+ 1 wl-folder-entity-id)))
 	(and entities
 	     (wl-push entities entity-stack))
 	(setq entities (nth 2 entity)))
@@ -1356,8 +1357,8 @@ If current line is group folder, all subfolders are marked."
 	   nil
 	   entity)
 	  (wl-folder-set-id-name wl-folder-entity-id
-				 entity hashtb))))
-      (setq wl-folder-entity-id (+ 1 wl-folder-entity-id))
+				 entity hashtb)
+	  (setq wl-folder-entity-id (+ 1 wl-folder-entity-id)))))
       (unless entities
 	(setq entities (wl-pop entity-stack))))))