From: morioka <morioka>
Date: Mon, 11 May 1998 15:58:05 +0000 (+0000)
Subject: Change data format of mime-content-type.
X-Git-Tag: remi-1_4_0-pre1~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=654286562a443962e769385b8f8334209e27567b;p=elisp%2Fsemi.git

Change data format of mime-content-type.
---

diff --git a/mime-parse.el b/mime-parse.el
index 72ecfe6..f656abb 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -91,7 +91,9 @@ are string."
 	  (setq dest (cons (car ret) dest)
 		string (cdr ret))
 	  )
-	(cons (intern type) (cons (intern subtype) (nreverse dest)))
+	(list* (cons 'type (intern type))
+	       (cons 'subtype (intern subtype))
+	       (nreverse dest))
 	)))
 
 (defun mime-read-Content-Type ()
@@ -105,11 +107,11 @@ and return parsed it.  Format of return value is as same as
 
 (defsubst mime-content-type-primary-type (content-type)
   "Return primary-type of CONTENT-TYPE."
-  (car content-type))
+  (cdr (car content-type)))
 
 (defsubst mime-content-type-subtype (content-type)
   "Return primary-type of CONTENT-TYPE."
-  (cadr content-type))
+  (cdr (cadr content-type)))
 
 (defsubst mime-content-type-parameters (content-type)
   "Return primary-type of CONTENT-TYPE."