update.

[elisp/semi.git] / mime-edit.el

diff --git a/mime-edit.el b/mime-edit.el
index b9f0d3e..4209551 100644 (file)
--- 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))