From 525f489465af82ec0f2da9b59b5205108d1c748c Mon Sep 17 00:00:00 2001 From: akr Date: Mon, 8 Feb 1999 12:13:05 +0000 Subject: [PATCH] * eword-decode.el (ew-mime-update-field-decoder-cache): Do not refold field-body if encoded word decoding is identity. --- ChangeLog | 5 +++++ eword-decode.el | 12 +++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index bbfe55c..30f5101 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 1999-02-08 Tanaka Akira + * 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 + * 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 -- 1.7.10.4