* 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 (file)
--- 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 (file)
--- 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)