(tmp (assoc key ew-decode-field-cache-buf)))
(if tmp
(cdr tmp)
- (progn
+ (let ((decoded (ew-decode-field-no-cache field-name field-body)))
(setq tmp (nthcdr ew-decode-field-cache-num
ew-decode-field-cache-buf))
(if (cdr tmp)
(cons (cons nil nil)
ew-decode-field-cache-buf)))
(setcar (car ew-decode-field-cache-buf) key)
- (setcdr (car ew-decode-field-cache-buf)
- (ew-decode-field-no-cache
- field-name field-body))
+ (setcdr (car ew-decode-field-cache-buf) decoded)
(cdar ew-decode-field-cache-buf)))))
(defun ew-analyze-field-to-decode (field-name field-body)
(ew-decode-field-no-cache
"From" "\"Cl\351ment Brousset\" <cbrousset@staffandline.com>"))
+(ew-decode-field-no-cache "From" " \"Jacek \\\"Jaytee\\\" Szyd\263owski\" <jaytee@friko.onet.pl>")
+
)