X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=ew-dec.el;h=d958195edaf6cfe205f68c67f87fc6752b95743c;hb=6769bf5954ca2bf221dfa9a41e2d47b24a135d79;hp=d43b3f7c147975bbcf234350549b5bbadf08e51d;hpb=ad48c8cef55bea00a362e6be6833ebca0f8d8f69;p=elisp%2Fflim.git

diff --git a/ew-dec.el b/ew-dec.el
index d43b3f7..d958195 100644
--- a/ew-dec.el
+++ b/ew-dec.el
@@ -26,7 +26,7 @@ each line is separated by CRLF."
 	 (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)
@@ -38,9 +38,7 @@ each line is separated by CRLF."
 		(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)
@@ -593,4 +591,6 @@ each line is separated by CRLF."
   (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>")
+
 )