* wl-addrbook.el (wl-addrbook-hashtb): Use quote instead of backquote.

(wl-alias-next, wl-alias-get): New backquote style.

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 4412fc5..6423b88 100644 (file)
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,9 @@
+2008-02-11  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl-addrbook.el (wl-addrbook-hashtb): Use quote instead of
+       backquote.
+       (wl-alias-next, wl-alias-get): New backquote style.
+
 2007-11-10  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * ptexinfmt.el (texinfo-copying-text, texinfo-copying)

diff --git a/utils/wl-addrbook.el b/utils/wl-addrbook.el
index bbca3ae..5a8c3a9 100644 (file)
--- a/utils/wl-addrbook.el
+++ b/utils/wl-addrbook.el
@@ -100,8 +100,8 @@ If nil,  the old 'user' entry remains.")
 
 ;; hash table for wl-addrbook-alist
 (defmacro wl-addrbook-hashtb ()
-  (` (or wl-addrbook-hashtb
-        (setq wl-addrbook-hashtb (elmo-make-hash 1021)))))
+  '(or wl-addrbook-hashtb
+       (setq wl-addrbook-hashtb (elmo-make-hash 1021))))
 
 (defsubst wl-addrbook-get-record-by-addr (addr &optional alist)
   (elmo-get-hash-val (downcase addr) (wl-addrbook-hashtb)))
@@ -180,10 +180,10 @@ If nil,  the old 'user' entry remains.")
 ;;
 
 (defmacro wl-alias-get (key)
-  (` (wl-addrbook-alias-get (, key) wl-addrbook-alist)))
+  `(wl-addrbook-alias-get ,key wl-addrbook-alist))
 
 (defmacro wl-alias-next (key)
-  (` (wl-addrbook-alias-next (, key) wl-addrbook-alist)))
+  `(wl-addrbook-alias-next ,key wl-addrbook-alist))
 
 (defalias 'wl-addrbook-alias-hit 'wl-addrbook-get-record-by-alias)