From: morioka <morioka>
Date: Wed, 10 Jul 1996 10:58:09 +0000 (+0000)
Subject: (mime-editor/choose-charset): Use function
X-Git-Tag: Hokutetsu-Ishikawa-new~372
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0367aa65de2e2505bf2d8249fc886a4b11949815;p=elisp%2Fsemi.git

(mime-editor/choose-charset): Use function
`detect-mime-charset-region' instead of `mime/find-charset-region'.
---

diff --git a/mime-edit.el b/mime-edit.el
index 430bda7..02721fa 100644
--- 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.30 $
+;;; Version: $Revision: 0.31 $
 ;;; 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.30 1996-07-09 13:24:21 morioka Exp $")
+  "$Id: mime-edit.el,v 0.31 1996-07-10 10:58:09 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -1172,7 +1172,9 @@ Optional argument ENCODING specifies an encoding method such as base64."
 
 (defun mime-editor/choose-charset ()
   "Choose charset of a text following current point."
-  (mime/find-charset-region (point) (mime-editor/content-end))
+  (upcase
+   (symbol-name
+    (detect-mime-charset-region (point) (mime-editor/content-end))))
   )
 
 (defun mime-make-text-tag (&optional subtype)