From: teranisi <teranisi>
Date: Sun, 2 Dec 2001 13:20:01 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-get-entity-id): Ignore nemacs (rewrite with new
X-Git-Tag: wl-2_8-root~98
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=23b3162cdecacbc9fb353f5ecb936839b0757a21;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-get-entity-id): Ignore nemacs (rewrite with new
backquote style).
(wl-folder-get-entity-from-buffer): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3ad2b8b..a1b0a75 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2001-12-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-folder.el (wl-folder-get-entity-id): Ignore nemacs (rewrite
+	with new backquote style).
+	(wl-folder-get-entity-from-buffer): Ditto.
+
 2001-12-02  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-version.el (nemacs-version): Eliminated.
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 6c97427..188bd68 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -250,19 +250,14 @@
 			  entity (or hashtb wl-folder-entity-id-name-hashtb))))
 
 (defmacro wl-folder-get-entity-id (entity)
-  (` (or (get-text-property 0
-			    'wl-folder-entity-id
-			    (, entity))
-	 (, entity)))) ;; for nemacs
+  `(get-text-property 0 'wl-folder-entity-id ,entity))
 
 (defmacro wl-folder-get-entity-from-buffer (&optional getid)
-  (` (let ((id (get-text-property (point)
-				  'wl-folder-entity-id)))
-       (if (not id) ;; for nemacs
-	   (wl-folder-get-realname (wl-folder-folder-name))
-	 (if (, getid)
-	     id
-	   (wl-folder-get-folder-name-by-id id))))))
+  `(let ((id (get-text-property (point)
+				'wl-folder-entity-id)))
+     (if ,getid
+	 id
+       (wl-folder-get-folder-name-by-id id))))
 
 (defmacro wl-folder-entity-exists-p (entity &optional hashtb)
   (` (let ((sym (intern-soft (, entity)