From: yoichi <yoichi>
Date: Wed, 20 Nov 2002 11:46:59 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-get-prev-folder): Ignore nemacs.
X-Git-Tag: wl-2_11_1~30
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4dee94ef6e5085f69c7f05353beb51f5622e673c;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-get-prev-folder): Ignore nemacs.
(wl-folder-get-next-folder): Ditto.
(wl-folder-get-path): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 51fce62..fe5ebad 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-11-20  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-folder.el (wl-folder-get-prev-folder): Ignore nemacs.
+	(wl-folder-get-next-folder): Ditto.
+	(wl-folder-get-path): Ditto.
+
 2002-11-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-mime.el (wl-message-verify-pgp-nonmime): With arg, ask coding
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 30b17d6..ea6ec23 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)))))))
@@ -1933,8 +1931,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))
@@ -1942,8 +1939,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