From d1cc42b80eecfd530595efdd0540c04f3e0d0e87 Mon Sep 17 00:00:00 2001 From: teranisi Date: Sun, 5 Sep 2004 04:15:37 +0000 Subject: [PATCH] (wl-folder-entity-assign-id): Fix for folder entity id. --- wl/ChangeLog | 5 +++++ wl/wl-folder.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) 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 + + * wl-folder.el (wl-folder-entity-assign-id): Fix for folder entity + id. + 2004-09-04 Hiroya Murata * 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)))))) -- 1.7.10.4