* eword-encode.el (make-ew-rword, ew-rword-text, ew-rword-charset)

[elisp/flim.git] / eword-encode.el

diff --git a/eword-encode.el b/eword-encode.el
index db0c739..06f5be5 100644 (file)
--- 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