From 2b99a08274eec253382c0d1ab2e56b6fb8533291 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 26 Jun 1998 01:14:49 +0000 Subject: [PATCH] (mime-parse-message): Don't parse Content-Disposition. --- mime-parse.el | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/mime-parse.el b/mime-parse.el index cbe3c02..7dc9c18 100644 --- a/mime-parse.el +++ b/mime-parse.el @@ -218,7 +218,7 @@ mime-{parse|read}-Content-Type." header-end body-start (body-end (point-max)) - content-type content-disposition encoding + content-type encoding primary-type entity) (goto-char header-start) @@ -236,11 +236,6 @@ mime-{parse|read}-Content-Type." (mime-parse-Content-Type str) )) default-ctl) - content-disposition (let ((str (std11-fetch-field - "Content-Disposition"))) - (if str - (mime-parse-Content-Disposition str) - )) encoding (let ((str (std11-fetch-field "Content-Transfer-Encoding"))) (if str @@ -251,7 +246,7 @@ mime-{parse|read}-Content-Type." (setq entity (make-mime-entity-internal (current-buffer) header-start header-end body-start body-end - node-id content-type content-disposition encoding nil)) + node-id content-type encoding nil)) (cond ((eq primary-type 'multipart) (mime-parse-multipart entity) ) -- 1.7.10.4