From 5d51561601332d8b32c6b2a4815afcd4d6b5f672 Mon Sep 17 00:00:00 2001 From: akr Date: Wed, 9 Sep 1998 19:19:05 +0000 Subject: [PATCH] * ew-dec.el (ew-decode-field): Call `ew-decode-field-no-cache' before modifing cache. --- ChangeLog | 5 +++++ ew-dec.el | 6 ++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 166df7e..7f980d4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 1998-09-09 Tanaka Akira + * ew-dec.el (ew-decode-field): Call `ew-decode-field-no-cache' + before modifing cache. + +1998-09-09 Tanaka Akira + * 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) -- 1.7.10.4