* 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 (file)
--- 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 (file)
--- 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)