From 33dc3f200cae05b9622d92bf36d3b32feabe23c3 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 13 Sep 2000 08:19:20 +0000 Subject: [PATCH] (wl-folder-entity-assign-id): Undo the last change. --- wl/ChangeLog | 4 ++++ wl/wl-folder.el | 12 ++++++------ 2 files changed, 10 insertions(+), 6 deletions(-) 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 + + * wl-folder.el (wl-folder-entity-assign-id): Undo the last change. + 2000-09-11 Katsumi Yamaoka * 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)))))) -- 1.7.10.4