From edb7702f780e28147ec21337c1d2d1cdf6098a44 Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 25 Oct 1998 10:01:51 +0000 Subject: [PATCH] (mime-insert-header-from-buffer): Don't use `eword-decode-field-body' to avoid overhead. --- mmgeneric.el | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/mmgeneric.el b/mmgeneric.el index df62c4e..6d67b99 100644 --- a/mmgeneric.el +++ b/mmgeneric.el @@ -148,7 +148,7 @@ &optional invisible-fields visible-fields) (let ((the-buf (current-buffer)) - f-b p f-e field-name field field-body) + f-b p f-e field-name len field field-body) (save-excursion (set-buffer buffer) (save-restriction @@ -158,14 +158,25 @@ (setq f-b (match-beginning 0) p (match-end 0) field-name (buffer-substring f-b p) + len (string-width field-name) f-e (std11-field-end)) (when (mime-visible-field-p field-name visible-fields invisible-fields) - (setq field (buffer-substring f-b (1- p)) + (setq field (intern + (capitalize (buffer-substring f-b (1- p)))) field-body (buffer-substring p f-e)) (with-current-buffer the-buf (insert field-name) - (insert (eword-decode-field-body field field-body nil t)) + (insert + (if (memq field eword-decode-ignored-field-list) + ;; Don't decode + field-body + (if (memq field eword-decode-structured-field-list) + ;; Decode as structured field + (eword-decode-and-fold-structured-field field-body len) + ;; Decode as unstructured field + (eword-decode-unstructured-field-body field-body len) + ))) (insert "\n") ))))))) -- 1.7.10.4