From 06f214608f0e48aa7709cd0446cd60c8b4322c5d Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 11 May 1998 14:40:47 +0000 Subject: [PATCH] (mime-edit-decode-buffer): Use 'mime-content-type-primary-type, 'mime-content-type-subtype and 'mime-content-type-parameters. --- mime-edit.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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)) -- 1.7.10.4