From 654286562a443962e769385b8f8334209e27567b Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 11 May 1998 15:58:05 +0000 Subject: [PATCH] Change data format of mime-content-type. --- mime-parse.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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." -- 1.7.10.4