From: morioka <morioka>
Date: Fri, 26 Jun 1998 01:16:18 +0000 (+0000)
Subject: (mime-entity-content-disposition): New implementation.
X-Git-Tag: chao-1_6_1-199811302358~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2ab6f6d72b13ac9b146cee9066ccff420214f3fa;p=elisp%2Fflim.git

(mime-entity-content-disposition): New implementation.
---

diff --git a/mime.el b/mime.el
index 576def6..993b30b 100644
--- a/mime.el
+++ b/mime.el
@@ -119,11 +119,6 @@ ENTITY is used."
 (defalias 'mime-entity-header-start 'mime-entity-header-start-internal)
 (defalias 'mime-entity-header-end   'mime-entity-header-end-internal)
 
-(defalias 'mime-entity-content-type	'mime-entity-content-type-internal)
-(defalias 'mime-entity-content-disposition
-  'mime-entity-content-disposition-internal)
-(defalias 'mime-entity-encoding		'mime-entity-encoding-internal)
-
 (defun mime-fetch-field (field-name &optional entity)
   (or (symbolp field-name)
       (setq field-name (intern (capitalize (capitalize field-name)))))
@@ -146,6 +141,20 @@ ENTITY is used."
 	    )
 	  field-body))))
 
+(defalias 'mime-entity-content-type 'mime-entity-content-type-internal)
+
+(defun mime-entity-content-disposition (entity)
+  (or (mime-entity-content-disposition-internal entity)
+      (let ((ret (mime-fetch-field 'Content-Disposition entity)))
+	(if ret
+	    (let ((disposition (mime-parse-Content-Disposition ret)))
+	      (when disposition
+		(mime-entity-set-content-disposition-internal
+		 entity disposition)
+		disposition))))))
+
+(defalias 'mime-entity-encoding 'mime-entity-encoding-internal)
+
 (defun mime-read-field (field-name &optional entity)
   (or (symbolp field-name)
       (setq field-name (capitalize (capitalize field-name))))