From 8c4d3ae8cf72628d0f3f0828df0bc3877214f381 Mon Sep 17 00:00:00 2001 From: tmorioka Date: Tue, 25 Feb 1997 06:30:58 +0000 Subject: [PATCH] `mime-edit-make-charset-default-encoding-alist' -> `mime-make-charset-default-encoding-alist'. --- mime-edit.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index 90effb5..e6cbe9a 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -7,7 +7,7 @@ ;; Maintainer: MORIOKA Tomohiko ;; Created: 1994/08/21 renamed from mime.el ;; Renamed: 1997/2/21 from tm-edit.el -;; Version: $Revision: 0.47 $ +;; Version: $Revision: 0.48 $ ;; Keywords: MIME, multimedia, multilingual, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -120,7 +120,7 @@ ;;; (defconst mime-edit-RCS-ID - "$Id: mime-edit.el,v 0.47 1997-02-25 06:25:40 tmorioka Exp $") + "$Id: mime-edit.el,v 0.48 1997-02-25 06:30:58 tmorioka Exp $") (defconst mime-edit-version (get-version-string mime-edit-RCS-ID)) @@ -389,7 +389,7 @@ If encoding is nil, it is determined from its contents.") "*A string formatted version of mime/defaul-transfer-level") (make-variable-buffer-local 'mime-transfer-level-string) -(defun mime-edit-make-charset-default-encoding-alist (transfer-level) +(defun mime-make-charset-default-encoding-alist (transfer-level) (mapcar (function (lambda (charset-type) (let ((charset (car charset-type)) @@ -403,7 +403,7 @@ If encoding is nil, it is determined from its contents.") mime-charset-type-list)) (defvar mime-edit-charset-default-encoding-alist - (mime-edit-make-charset-default-encoding-alist mime-transfer-level)) + (mime-make-charset-default-encoding-alist mime-transfer-level)) (make-variable-buffer-local 'mime-edit-charset-default-encoding-alist) ;;; @@ about message inserting @@ -2120,8 +2120,7 @@ Optional TRANSFER-LEVEL is a number of transfer-level, 7 or 8." (setq mime-transfer-level 7) )) (setq mime-edit-charset-default-encoding-alist - (mime-edit-make-charset-default-encoding-alist - mime-transfer-level)) + (mime-make-charset-default-encoding-alist mime-transfer-level)) (message (format "Current transfer-level is %d bit" mime-transfer-level)) (setq mime-transfer-level-string -- 1.7.10.4