From: kaoru <kaoru>
Date: Sun, 17 Feb 2008 09:43:09 +0000 (+0000)
Subject: * wl-message.el (wl-message-buffer-cache-buffer-get)
X-Git-Tag: wl-2_15_6-fixes~44
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0dde8858aebea5d441e0156d7649f766706d45d7;p=elisp%2Fwanderlust.git

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