(mime-editor/define-charset, mime-editor/set-parameter): Function

`mime-set-parameter' was renamed to `mime-editor/set-parameter'.

diff --git a/mime-edit.el b/mime-edit.el
index e2d22bf..5891dd4 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.20 $
+;;; Version: $Revision: 0.21 $
 ;;; 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.20 1996-05-29 09:54:28 morioka Exp $")
+  "$Id: mime-edit.el,v 0.21 1996-05-29 09:57:53 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -1165,10 +1165,11 @@ Optional argument ENCODING specifies an encoding method such as base64."
        (let ((tag (buffer-substring (match-beginning 0) (match-end 0))))
          (delete-region (match-beginning 0) (match-end 0))
          (insert
-          (mime-create-tag (mime-set-parameter
-                            (mime-editor/get-contype tag) "charset" charset)
-                           (mime-editor/get-encoding tag))))
-      )))
+          (mime-create-tag
+           (mime-editor/set-parameter
+            (mime-editor/get-contype tag) "charset" charset)
+           (mime-editor/get-encoding tag)))
+         ))))
 
 (defun mime-editor/define-encoding (encoding)
   "Set encoding of current tag to ENCODING."
@@ -1239,7 +1240,7 @@ Nil if no such parameter."
     nil                                        ;No such parameter
     ))
 
-(defun mime-set-parameter (contype parameter value)
+(defun mime-editor/set-parameter (contype parameter value)
   "For given CONTYPE set PARAMETER to VALUE."
   (let (ctype opt-fields)
     (if (string-match "\n[^ \t\n\r]+:" contype)