From: akr <akr>
Date: Wed, 9 Sep 1998 19:19:05 +0000 (+0000)
Subject: * ew-dec.el (ew-decode-field): Call `ew-decode-field-no-cache'
X-Git-Tag: doodle-1_9_3~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5d51561601332d8b32c6b2a4815afcd4d6b5f672;p=elisp%2Fflim.git

* ew-dec.el (ew-decode-field): Call `ew-decode-field-no-cache'
before modifing cache.
---

diff --git a/ChangeLog b/ChangeLog
index 166df7e..7f980d4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 1998-09-09  Tanaka Akira      <akr@jaist.ac.jp>
 
+	* ew-dec.el (ew-decode-field): Call `ew-decode-field-no-cache'
+	before modifing cache.
+
+1998-09-09  Tanaka Akira      <akr@jaist.ac.jp>
+
 	* mel-ccl.el (mel-ccl-28-table): New compile time constant.
 	(mel-ccl-64-to-256-table): Ditto.
 	(mel-ccl-qp-table): Mark LF.
diff --git a/ew-dec.el b/ew-dec.el
index d43b3f7..90305e3 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)