From: kaoru <kaoru>
Date: Sat, 1 Feb 2003 00:52:40 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-get-prev-folder): Ignore Nemacs; Use `eq'
X-Git-Tag: wl-2_10_1pre~33
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f0aa03cf2a50e1013e65f5e03c63d1c4b29e238b;p=elisp%2Fwanderlust.git

* 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.
---

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  <kaoru@kaisei.org>
+
+	* 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  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* 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