From: kaoru <kaoru>
Date: Sun, 17 Feb 2008 09:51:27 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-buffer-folder-name)
X-Git-Tag: wl-2_15_6-fixes~43
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0247df255447ea607d0f4dd46b09cf5e91f234e7;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-buffer-folder-name)
(wl-summary-get-alike): Use quote instead of backquote.
(wl-summary-sticky-buffer-name, wl-summary-put-alike): New backquote style.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9d6c0f9..887ab50 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2008-02-17  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-summary.el (wl-summary-buffer-folder-name)
+	(wl-summary-get-alike): Use quote instead of backquote.
+	(wl-summary-sticky-buffer-name, wl-summary-put-alike): New
+	backquote style.
+
 	* wl-message.el (wl-message-buffer-cache-buffer-get)
 	(wl-message-buffer-cache-folder-get)
 	(wl-message-buffer-cache-message-get)
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 9537bb3..51079a8 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -69,8 +69,8 @@
 (defvar wl-summary-buffer-elmo-folder nil)
 
 (defmacro wl-summary-buffer-folder-name ()
-  (` (and wl-summary-buffer-elmo-folder
-	  (elmo-folder-name-internal wl-summary-buffer-elmo-folder))))
+  '(and wl-summary-buffer-elmo-folder
+	(elmo-folder-name-internal wl-summary-buffer-elmo-folder)))
 
 (defvar wl-summary-buffer-disp-msg    nil)
 (defvar wl-summary-buffer-disp-folder nil)
@@ -197,7 +197,7 @@
 (defvar wl-persistent-mark)
 
 (defmacro wl-summary-sticky-buffer-name (name)
-  (` (concat wl-summary-buffer-name ":" (, name))))
+  `(concat wl-summary-buffer-name ":" ,name))
 
 (defun wl-summary-default-subject (subject-string)
   (if (string-match "^[ \t]*\\[[^:]+[,: ][0-9]+\\][ \t]*" subject-string)
@@ -2628,13 +2628,13 @@ If ARG, without confirm."
 	   (funcall wl-summary-subject-filter-function subject2)))
 
 (defmacro wl-summary-put-alike (alike)
-  (` (elmo-set-hash-val (format "#%d" (wl-count-lines))
-			(, alike)
-			wl-summary-alike-hashtb)))
+  `(elmo-set-hash-val (format "#%d" (wl-count-lines))
+		      ,alike
+		      wl-summary-alike-hashtb))
 
 (defmacro wl-summary-get-alike ()
-  (` (elmo-get-hash-val (format "#%d" (wl-count-lines))
-			wl-summary-alike-hashtb)))
+  '(elmo-get-hash-val (format "#%d" (wl-count-lines))
+		      wl-summary-alike-hashtb))
 
 (defun wl-summary-insert-headers (folder func &optional mime-decode)
   (let ((numbers (elmo-folder-list-messages folder 'visible t))