From: tmorioka <tmorioka>
Date: Tue, 25 Feb 1997 06:21:00 +0000 (+0000)
Subject: Function `mime/make-charset-default-encoding-alist' was abolished.
X-Git-Tag: Hokutetsu-Ishikawa-new~292
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=33070dee8bdd43c86d7f46eb7fcd2af3d54250c0;p=elisp%2Fsemi.git

Function `mime/make-charset-default-encoding-alist' was abolished.
---

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 <morioka@jaist.ac.jp>
-;; 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
 ;;;