From: okada <okada>
Date: Fri, 5 Sep 2008 01:18:43 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-buffer-folder-name)
X-Git-Tag: wl-2_15_6-fixes~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aa9ca0e3cae7d3b11f0b0e06c0fdb84e31afe121;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-buffer-folder-name)
(wl-draft-config-body-goto-header): Use backquote instead of quote.
* wl-draft.el (wl-draft-body-goto-top)
(wl-draft-body-goto-bottom) (wl-draft-config-body-goto-header): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index cba0294..d329184 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2008-09-05  Kenichi Okada  <okada@opaopa.org>
+
+	* wl-summary.el (wl-summary-buffer-folder-name)
+	(wl-draft-config-body-goto-header): Use backquote instead of quote.
+	* wl-draft.el (wl-draft-body-goto-top)
+	(wl-draft-body-goto-bottom) (wl-draft-config-body-goto-header): Ditto.
+
 2008-03-30  Tetsurou Okazaki  <okazaki@be.to>
 
 	* wl-mime.el (wl-message-decrypt-pgp-nonmime): Upcase "pgp" in the error message.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index bb7c8f4..73b6ad7 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -2009,17 +2009,17 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
     buffer))
 
 (defmacro wl-draft-body-goto-top ()
-  '(progn
+  `(progn
      (goto-char (point-min))
      (if (re-search-forward mail-header-separator nil t)
 	 (forward-char 1)
        (goto-char (point-max)))))
 
 (defmacro wl-draft-body-goto-bottom ()
-  '(goto-char (point-max)))
+  `(goto-char (point-max)))
 
 (defmacro wl-draft-config-body-goto-header ()
-  '(progn
+  `(progn
      (goto-char (point-min))
      (if (re-search-forward mail-header-separator nil t)
 	 (beginning-of-line)
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 9d0fc58..6d03019 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -70,7 +70,7 @@
 (defvar wl-summary-buffer-elmo-folder nil)
 
 (defmacro wl-summary-buffer-folder-name ()
-  '(and 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)
@@ -2634,7 +2634,7 @@ If ARG, without confirm."
 		      wl-summary-alike-hashtb))
 
 (defmacro wl-summary-get-alike ()
-  '(elmo-get-hash-val (format "#%d" (wl-count-lines))
+  `(elmo-get-hash-val (format "#%d" (wl-count-lines))
 		      wl-summary-alike-hashtb))
 
 (defun wl-summary-insert-headers (folder func &optional mime-decode)