;;;
(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