From f0aa03cf2a50e1013e65f5e03c63d1c4b29e238b Mon Sep 17 00:00:00 2001 From: kaoru Date: Sat, 1 Feb 2003 00:52:40 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-get-prev-folder): Ignore Nemacs; Use `eq' instead of `equal' for id. (wl-folder-get-next-folder, wl-folder-get-path): Ditto. --- wl/ChangeLog | 6 ++++++ wl/wl-folder.el | 12 ++++-------- 2 files changed, 10 insertions(+), 8 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index fae2eb2..73f01a2 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2003-02-01 TAKAHASHI Kaoru + + * wl-folder.el (wl-folder-get-prev-folder): Ignore Nemacs; Use `eq' + instead of `equal' for id. + (wl-folder-get-next-folder, wl-folder-get-path): Ditto. + 2003-01-30 Yoichi NAKAYAMA * wl-thread.el (wl-thread-save-entities): Bind print-length diff --git a/wl/wl-folder.el b/wl/wl-folder.el index fb8d66c..ee20598 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -428,8 +428,7 @@ Default HASHTB is `wl-folder-elmo-folder-hashtb'." (setq entities (nth 2 entity))) ((stringp entity) (if (and (string= name entity) - ;; don't use eq, `id' is string on Nemacs. - (equal id (wl-folder-get-entity-id entity))) + (eq id (wl-folder-get-entity-id entity))) (throw 'done last-entity)) (if (or (not unread) (and (setq finfo (wl-folder-get-entity-info entity)) @@ -464,8 +463,7 @@ Default HASHTB is `wl-folder-elmo-folder-hashtb'." (> (+ (nth 0 finfo)(nth 1 finfo)) 0))) (throw 'done entity)) (if (and (string= name entity) - ;; don't use eq, `id' is string on Nemacs. - (equal id (wl-folder-get-entity-id entity))) + (eq id (wl-folder-get-entity-id entity))) (setq found t))))) (unless entities (setq entities (wl-pop entity-stack))))))) @@ -1952,8 +1950,7 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'." (cond ((consp entity) (if (and (or (not string) (string= string (car entity))) - ;; don't use eq, `id' is string on Nemacs. - (equal target-id (wl-folder-get-entity-id (car entity)))) + (eq target-id (wl-folder-get-entity-id (car entity)))) (throw 'done (wl-push target-id result-path)) (wl-push (wl-folder-get-entity-id (car entity)) result-path)) @@ -1961,8 +1958,7 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'." (setq entities (nth 2 entity))) ((stringp entity) (if (and (or (not string) (string= string entity)) - ;; don't use eq, `id' is string on Nemacs. - (equal target-id (wl-folder-get-entity-id entity))) + (eq target-id (wl-folder-get-entity-id entity))) (throw 'done (wl-push target-id result-path))))) (unless entities -- 1.7.10.4