* wl-message.el (wl-message-buffer-cache-buffer-get)

(wl-message-buffer-cache-folder-get)
(wl-message-buffer-cache-message-get)
(wl-message-buffer-cache-entry-make)
(wl-message-buffer-cache-hit): New backquote style.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index aa474e2..9d6c0f9 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,11 @@
 2008-02-17  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * wl-message.el (wl-message-buffer-cache-buffer-get)
+       (wl-message-buffer-cache-folder-get)
+       (wl-message-buffer-cache-message-get)
+       (wl-message-buffer-cache-entry-make)
+       (wl-message-buffer-cache-hit): New backquote style.
+
        * wl-folder.el (wl-folder-buffer-group-p): Use quote instead of
        backquote.
        (wl-folder-unread-regex, wl-folder-entity-exists-p)

diff --git a/wl/wl-message.el b/wl/wl-message.el
index 81338cb..1584414 100644 (file)
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -85,21 +85,21 @@
 With association ((\"folder\" message \"message-id\") . cache-buffer).")
 
 (defmacro wl-message-buffer-cache-buffer-get (entry)
-  (` (cdr (, entry))))
+  `(cdr ,entry))
 
 (defmacro wl-message-buffer-cache-folder-get (entry)
-  (` (car (car (, entry)))))
+  `(car (car ,entry)))
 
 (defmacro wl-message-buffer-cache-message-get (entry)
-  (` (cdr (car (, entry)))))
+  `(cdr (car ,entry)))
 
 (defmacro wl-message-buffer-cache-entry-make (key buf)
-  (` (cons (, key) (, buf))))
+  `(cons ,key ,buf))
 
 (defmacro wl-message-buffer-cache-hit (key)
   "Return value assosiated with key."
-  (` (wl-message-buffer-cache-buffer-get
-      (assoc (, key) wl-message-buffer-cache))))
+  `(wl-message-buffer-cache-buffer-get
+    (assoc ,key wl-message-buffer-cache)))
 
 (defun wl-message-buffer-cache-sort (entry)
   "Move ENTRY to the top of `wl-message-buffer-cache'."