From c88f813f95b70003f5722a342ac86d5f85017363 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 12 May 1998 11:56:50 +0000 Subject: [PATCH] (make-mime-content-type): New function. (mime-parse-Content-Type): Use 'make-mime-content-type. (mime-parse-multipart): Use 'make-mime-content-type. --- mime-parse.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) 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 -- 1.7.10.4