From: akr <akr>
Date: Mon, 8 Feb 1999 12:13:05 +0000 (+0000)
Subject: * eword-decode.el (ew-mime-update-field-decoder-cache): Do not refold
X-Git-Tag: doodle-1_12_1~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=525f489465af82ec0f2da9b59b5205108d1c748c;p=elisp%2Fflim.git

* 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
--- 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
--- 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