* eword-decode.el (ew-mime-update-field-decoder-cache): Do not refold

field-body if encoded word decoding is identity.

diff --git a/ChangeLog b/ChangeLog
index bbfe55c..30f5101 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 1999-02-08  Tanaka Akira      <akr@jaist.ac.jp>
 
+       * eword-decode.el (ew-mime-update-field-decoder-cache): Do not refold
+       field-body if encoded word decoding is identity.
+
+1999-02-08  Tanaka Akira      <akr@jaist.ac.jp>
+
        * mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Fix previous
        change.
 

diff --git a/eword-decode.el b/eword-decode.el
index f11b7cc..ae6992d 100644 (file)
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -604,11 +604,13 @@ Default value of MODE is `summary'."
                (lexical-let ((field-name (symbol-name field)))
                  (lambda (field-body &optional start-column max-column must-unfold)
                    (setq field-body (ew-lf-to-crlf field-body))
-                   (let ((res (ew-crlf-to-lf
-                               (ew-crlf-refold
-                                (ew-decode-field field-name field-body)
-                                (length field-name)
-                                (or max-column fill-column)))))
+                  (let* ((res (ew-decode-field field-name field-body))
+                         (res (if (string= res field-body)
+                                  res
+                                (ew-crlf-refold res
+                                                (length field-name)
+                                                (or max-column fill-column))))
+                         (res (ew-crlf-to-lf res)))
                      (add-text-properties
                       0 (length res)
                       (list 'original-field-name field-name