From 12ccfd4e7ec2053e4d54d1e3c4d9f08d0c312d9e Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 19 Jun 1998 22:32:02 +0000
Subject: [PATCH] Move structure `mime-content-type' to mime-def.el.

---
 mime-parse.el |   22 ----------------------
 1 file changed, 22 deletions(-)

diff --git a/mime-parse.el b/mime-parse.el
index 0f004b3..5fb7dd9 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -58,12 +58,6 @@
 ;;; @ Content-Type
 ;;;
 
-(defsubst make-mime-content-type (type subtype &optional parameters)
-  (list* (cons 'type type)
-	 (cons 'subtype subtype)
-	 (nreverse parameters))
-  )
-
 (defun mime-parse-Content-Type (string)
   "Parse STRING as field-body of Content-Type field.
 Return value is
@@ -96,22 +90,6 @@ and return parsed it.  Format of return value is as same as
 	(mime-parse-Content-Type str)
       )))
 
-(defsubst mime-content-type-primary-type (content-type)
-  "Return primary-type of CONTENT-TYPE."
-  (cdr (car content-type)))
-
-(defsubst mime-content-type-subtype (content-type)
-  "Return primary-type of CONTENT-TYPE."
-  (cdr (cadr content-type)))
-
-(defsubst mime-content-type-parameters (content-type)
-  "Return primary-type of CONTENT-TYPE."
-  (cddr content-type))
-
-(defsubst mime-content-type-parameter (content-type parameter)
-  "Return PARAMETER value of CONTENT-TYPE."
-  (cdr (assoc parameter (mime-content-type-parameters content-type))))
-
 
 ;;; @ Content-Disposition
 ;;;
-- 
1.7.10.4