From ef8521d6e0f53770b16f8f5fca4335d5a6690dd1 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 10 Jul 1996 11:51:13 +0000 Subject: [PATCH] (mime-editor/normalize-body): fixed. --- mime-edit.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index c8fb068..bb7ffa0 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -9,7 +9,7 @@ ;;; Maintainer: MORIOKA Tomohiko ;;; 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 -- 1.7.10.4