X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=eword-encode.el;fp=eword-encode.el;h=06f5be50aa60a276e3668e2d00e054f8a510f35d;hb=fe9ce912d6e0e5b270844de795b3d7a46add6dd5;hp=db0c739f29a3c314a5f202a8b8d19abebbc7ac0c;hpb=a1119b684f8f6eccc99fa8d6bece7cc915c5fbd0;p=elisp%2Fflim.git

diff --git a/eword-encode.el b/eword-encode.el
index db0c739..06f5be5 100644
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -164,15 +164,15 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
 ;;;
 
 (defmacro make-ew-rword (text charset encoding type)
-  `(list ,text ,charset ,encoding ,type))
+  (` (list (, text)(, charset)(, encoding)(, type))))
 (defmacro ew-rword-text (rword)
-  `(car ,rword))
+  (` (car (, rword))))
 (defmacro ew-rword-charset (rword)
-  `(car (cdr ,rword)))
+  (` (car (cdr (, rword)))))
 (defmacro ew-rword-encoding (rword)
-  `(car (cdr (cdr ,rword))))
+  (` (car (cdr (cdr (, rword))))))
 (defmacro ew-rword-type (rword)
-  `(car (cdr (cdr (cdr ,rword)))))
+  (` (car (cdr (cdr (cdr (, rword)))))))
 
 (defun ew-find-charset-rule (charsets)
   (if charsets