(mime-editor/normalize-body): fixed.

diff --git a/mime-edit.el b/mime-edit.el
index c8fb068..bb7ffa0 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -9,7 +9,7 @@
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1994/08/21 renamed from mime.el by UMEDA Masanobu;
 ;;;          1996/05/24 renamed from tm-edit.el
-;;; Version: $Revision: 0.33 $
+;;; Version: $Revision: 0.34 $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual
 ;;;
 ;;; This file is part of SEMI (September, Emacs MIME Interface)
@@ -123,7 +123,7 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
-  "$Id: mime-edit.el,v 0.33 1996-07-10 11:41:57 morioka Exp $")
+  "$Id: mime-edit.el,v 0.34 1996-07-10 11:51:13 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -1949,7 +1949,7 @@ Content-Transfer-Encoding: 7bit
   (while (re-search-forward mime-editor/single-part-tag-regexp nil t)
     (let* ((tag (buffer-substring (match-beginning 0) (match-end 0)))
           (contype (mime-editor/get-contype tag))
-          (charset (intern (downcase (mime-get-parameter contype "charset"))))
+          (charset (mime-get-parameter contype "charset"))
           (encoding (mime-editor/get-encoding tag)))
       ;; Remove extra whitespaces after the tag.
       (if (looking-at "[ \t]+$")
@@ -1972,7 +1972,9 @@ Content-Transfer-Encoding: 7bit
        )
        ((mime-test-content-type contype "text")
        ;; Define charset for text if necessary.
-       (setq charset (or charset (mime-editor/choose-charset)))
+       (setq charset (if charset
+                         (intern (downcase charset))
+                       (mime-editor/choose-charset)))
        (mime-editor/define-charset charset)
        (cond ((string-equal contype "text/x-rot13-47")
               (save-excursion