From f8f831bc6ef942117bb45d37dcef2f60225a266f Mon Sep 17 00:00:00 2001 From: tmorioka Date: Tue, 25 Feb 1997 06:23:51 +0000 Subject: [PATCH] Function `mime/encoding-name' was renamed to `mime-encoding-name'. --- mime-edit.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index 8f33c2b..3e8531e 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.45 $ +;; Version: $Revision: 0.46 $ ;; 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.45 1997-02-25 06:18:07 tmorioka Exp $") + "$Id: mime-edit.el,v 0.46 1997-02-25 06:23:51 tmorioka Exp $") (defconst mime-edit-version (get-version-string mime-edit-RCS-ID)) @@ -374,18 +374,18 @@ If encoding is nil, it is determined from its contents.") (iso-2022-int-1 7 "base64") )) -(defsubst mime/encoding-name (transfer-level &optional not-omit) +(defvar mime-edit-transfer-level 7 + "*A number of network transfer level. It should be bigger than 7.") +(make-variable-buffer-local 'mime-edit-transfer-level) + +(defsubst mime-encoding-name (transfer-level &optional not-omit) (cond ((> transfer-level 8) "binary") ((= transfer-level 8) "8bit") (not-omit "7bit") )) -(defvar mime-edit-transfer-level 7 - "*A number of network transfer level. It should be bigger than 7.") -(make-variable-buffer-local 'mime-edit-transfer-level) - (defvar mime-edit-transfer-level-string - (mime/encoding-name mime-edit-transfer-level 'not-omit) + (mime-encoding-name mime-edit-transfer-level 'not-omit) "*A string formatted version of mime/defaul-transfer-level") (make-variable-buffer-local 'mime-edit-transfer-level-string) @@ -397,7 +397,7 @@ If encoding is nil, it is determined from its contents.") (encoding (nth 2 charset-type)) ) (if (<= type transfer-level) - (cons charset (mime/encoding-name type)) + (cons charset (mime-encoding-name type)) (cons charset encoding) )))) mime-charset-type-list)) @@ -822,7 +822,7 @@ User customizable variables (not documented all of them): ;; Set transfer level into mode line ;; (setq mime-edit-transfer-level-string - (mime/encoding-name mime-edit-transfer-level 'not-omit)) + (mime-encoding-name mime-edit-transfer-level 'not-omit)) (force-mode-line-update) ;; Define menu. Menus for other emacs implementations are @@ -2125,7 +2125,7 @@ Optional TRANSFER-LEVEL is a number of transfer-level, 7 or 8." (message (format "Current transfer-level is %d bit" mime-edit-transfer-level)) (setq mime-edit-transfer-level-string - (mime/encoding-name mime-edit-transfer-level 'not-omit)) + (mime-encoding-name mime-edit-transfer-level 'not-omit)) (force-mode-line-update) ) -- 1.7.10.4