From: morioka <morioka>
Date: Mon, 16 Feb 1998 20:21:52 +0000 (+0000)
Subject: (eword-decode-header): Don't use
X-Git-Tag: semi-0_118_2~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=31660a4adf5cbc48dd560a03cd5c3b49a42b3f2f;p=elisp%2Fsemi.git

(eword-decode-header): Don't use
`eword-decode-unstructured-field-body'.
---

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