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

diff --git a/ew-dec.el b/ew-dec.el
index 4a70444..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)
@@ -589,4 +587,10 @@ each line is separated by CRLF."
 
 (ew-decode-field "From"" ()=?+US-ASCII?Q??=?+US-ASCII?Q?a?= =?US-ASCII?Q??= <akr@foo> (aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)")
 
+(let ((ew-default-mime-charset 'iso-2022-jp-2))
+  (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>")
+
 )