From: morioka <morioka>
Date: Tue, 12 May 1998 11:56:50 +0000 (+0000)
Subject: (make-mime-content-type): New function.
X-Git-Tag: remi-1_4_0-pre2~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c88f813f95b70003f5722a342ac86d5f85017363;p=elisp%2Fsemi.git

(make-mime-content-type): New function.
(mime-parse-Content-Type): Use 'make-mime-content-type.
(mime-parse-multipart): Use 'make-mime-content-type.
---

diff --git a/mime-parse.el b/mime-parse.el
index e6d33f0..b389222 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -72,6 +72,12 @@
 ;;; @ 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
@@ -91,9 +97,8 @@ are string."
 	  (setq dest (cons (car ret) dest)
 		string (cdr ret))
 	  )
-	(list* (cons 'type (intern type))
-	       (cons 'subtype (intern subtype))
-	       (nreverse dest))
+	(make-mime-content-type (intern type)(intern subtype)
+				(nreverse dest))
 	)))
 
 (defun mime-read-Content-Type ()
@@ -212,8 +217,8 @@ If is is not found, return DEFAULT-ENCODING."
 	 (rsep (concat delimiter "[ \t]*\n"))
 	 (dc-ctl
 	  (if (eq subtype 'digest)
-	      '(message rfc822)
-	    '(text plain)
+	      (make-mime-content-type 'message 'rfc822)
+	    (make-mime-content-type 'text 'plain)
 	    ))
 	 cb ce ret ncb children (i 0))
     (save-restriction