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