From: morioka <morioka>
Date: Fri, 26 Jun 1998 01:14:49 +0000 (+0000)
Subject: (mime-parse-message): Don't parse Content-Disposition.
X-Git-Tag: chao-1_6_1-199811302358~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2b99a08274eec253382c0d1ab2e56b6fb8533291;p=elisp%2Fflim.git

(mime-parse-message): Don't parse Content-Disposition.
---

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)
 	   )