From: morioka <morioka>
Date: Mon, 11 May 1998 14:40:47 +0000 (+0000)
Subject: (mime-edit-decode-buffer): Use 'mime-content-type-primary-type,
X-Git-Tag: remi-1_4_0-pre1~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=06f214608f0e48aa7709cd0446cd60c8b4322c5d;p=elisp%2Fsemi.git

(mime-edit-decode-buffer): Use 'mime-content-type-primary-type,
'mime-content-type-subtype and 'mime-content-type-parameters.
---

diff --git a/mime-edit.el b/mime-edit.el
index b9f0d3e..4209551 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -2553,10 +2553,9 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
     (goto-char (point-min))
     (let ((ctl (mime-read-Content-Type)))
       (if ctl
-	  (let ((type (car ctl))
-		(stype (car (cdr ctl)))
-		(params (cdr (cdr ctl)))
-		)
+	  (let ((type (mime-content-type-primary-type ctl))
+		(stype (mime-content-type-subtype ctl))
+		(params (mime-content-type-parameters ctl)))
 	    (cond
 	     ((and (eq type 'application)(eq stype 'pgp-signature))
 	      (delete-region (point-min)(point-max))