Move `mime-content-disposition-parameter' and

[elisp/flim.git] / mime.el

diff --git a/mime.el b/mime.el
index 9546f6e..84872ff 100644 (file)
--- a/mime.el
+++ b/mime.el
@@ -41,6 +41,12 @@
   "Read field-body of Content-Type field from current-buffer,
 and return parsed it.")
 
+(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.")
+
 (autoload 'mime-parse-Content-Transfer-Encoding "mime-parse"
   "Parse STRING as field-body of Content-Transfer-Encoding field.")
 (autoload 'mime-read-Content-Transfer-Encoding "mime-parse"
@@ -54,25 +60,6 @@ current-buffer, and return it.")
   "Parse BUFFER as a MIME message.")
 
 
-;;; @ 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"))
-
-
 ;;; @ MIME entity
 ;;;