From 0247df255447ea607d0f4dd46b09cf5e91f234e7 Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 17 Feb 2008 09:51:27 +0000 Subject: [PATCH] * 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/ChangeLog | 5 +++++ wl/wl-summary.el | 16 ++++++++-------- 2 files changed, 13 insertions(+), 8 deletions(-) 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 + * 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)) -- 1.7.10.4