From a1970fbd77f406b723ca2abaccd430f7dddf027e Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 29 May 1996 09:57:53 +0000 Subject: [PATCH] (mime-editor/define-charset, mime-editor/set-parameter): Function `mime-set-parameter' was renamed to `mime-editor/set-parameter'. --- mime-edit.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) 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 ;;; 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) -- 1.7.10.4