From: morioka <morioka>
Date: Wed, 29 May 1996 09:57:53 +0000 (+0000)
Subject: (mime-editor/define-charset, mime-editor/set-parameter): Function
X-Git-Tag: Hokutetsu-Ishikawa-new~382
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a1970fbd77f406b723ca2abaccd430f7dddf027e;p=elisp%2Fsemi.git

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