From 31660a4adf5cbc48dd560a03cd5c3b49a42b3f2f Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 16 Feb 1998 20:21:52 +0000 Subject: [PATCH] (eword-decode-header): Don't use `eword-decode-unstructured-field-body'. --- eword-decode.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/eword-decode.el b/eword-decode.el index 9499c5b..fdba1c8 100644 --- a/eword-decode.el +++ b/eword-decode.el @@ -10,7 +10,7 @@ ;; Renamed: 1993/06/03 to tiny-mime.el ;; Renamed: 1995/10/03 from tiny-mime.el (split off encoder) ;; Renamed: 1997/02/22 from tm-ew-d.el -;; Version: $Revision: 1.1 $ +;; Version: $Revision: 1.2 $ ;; Keywords: encoded-word, MIME, multilingual, header, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -41,7 +41,7 @@ ;;; (defconst eword-decode-RCS-ID - "$Id: eword-decode.el,v 1.1 1998-02-16 18:44:37 morioka Exp $") + "$Id: eword-decode.el,v 1.2 1998-02-16 20:21:52 morioka Exp $") (defconst eword-decode-version (get-version-string eword-decode-RCS-ID)) @@ -213,17 +213,17 @@ If SEPARATOR is not nil, it is used as header separator." resent-sender to resent-to cc resent-cc bcc resent-bcc dcc - mime-version)) + mime-version content-type)) (let ((body (buffer-substring p end)) (default-mime-charset default-charset)) (delete-region p end) (insert (eword-decode-structured-field-body body)) )) (t - (let ((body (buffer-substring p end)) - (default-mime-charset default-charset)) - (delete-region p end) - (insert (eword-decode-unstructured-field-body body)) + (save-restriction + (narrow-to-region p end) + (decode-mime-charset-region p end default-charset) + (eword-decode-region p (point-max)) ))))) (eword-decode-region (point-min) (point-max) t) ))))) -- 1.7.10.4