+;;; @ Content-Disposition
+;;;
+
+(autoload 'mime-parse-Content-Disposition "mime-parse"
+ "Parse STRING as field-body of Content-Disposition field.")
+
+(autoload 'mime-read-Content-Disposition "mime-parse"
+ "Read field-body of Content-Disposition field from current-buffer,
+and return parsed it.")
+
+(defsubst mime-content-disposition-parameter (content-disposition parameter)
+ "Return PARAMETER value of CONTENT-DISPOSITION."
+ (cdr (assoc parameter (cdr content-disposition))))
+
+(defsubst mime-content-disposition-filename (content-disposition)
+ "Return filename of CONTENT-DISPOSITION."
+ (mime-content-disposition-parameter content-disposition "filename"))
+
+