From 33070dee8bdd43c86d7f46eb7fcd2af3d54250c0 Mon Sep 17 00:00:00 2001 From: tmorioka Date: Tue, 25 Feb 1997 06:21:00 +0000 Subject: [PATCH] Function `mime/make-charset-default-encoding-alist' was abolished. --- mime-def.el | 19 +------------------ 1 file changed, 1 insertion(+), 18 deletions(-) diff --git a/mime-def.el b/mime-def.el index 9cb1325..2efb95e 100644 --- a/mime-def.el +++ b/mime-def.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko -;; Version: $Id: mime-def.el,v 0.9 1997-02-25 06:17:50 tmorioka Exp $ +;; Version: $Id: mime-def.el,v 0.10 1997-02-25 06:21:00 tmorioka Exp $ ;; Keywords: definition, MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -53,23 +53,6 @@ (defconst mime/temp-buffer-name " *MIME-temp*") -;;; @ charset and encoding -;;; - -(defun mime/make-charset-default-encoding-alist (transfer-level) - (mapcar (function - (lambda (charset-type) - (let ((charset (upcase (symbol-name (car charset-type)))) - (type (nth 1 charset-type)) - (encoding (nth 2 charset-type)) - ) - (if (<= type transfer-level) - (cons charset (mime/encoding-name type)) - (cons charset encoding) - )))) - mime-charset-type-list)) - - ;;; @ button ;;; -- 1.7.10.4