From: morioka <morioka>
Date: Fri, 19 Jun 1998 22:32:02 +0000 (+0000)
Subject: Move structure `mime-content-type' to mime-def.el.
X-Git-Tag: flim-1_5_0~39
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=12ccfd4e7ec2053e4d54d1e3c4d9f08d0c312d9e;p=elisp%2Fflim.git

Move structure `mime-content-type' to mime-def.el.
---

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
 ;;;