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