Move `mime-content-disposition-parameter' and

`mime-content-disposition-filename' from mime-def.el to mime.el.

diff --git a/mime-def.el b/mime-def.el
index 0babafb..94dec7e 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -165,14 +165,6 @@
   "Return disposition-parameters of CONTENT-DISPOSITION."
   (cdr content-disposition))
 
-(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
 ;;;

diff --git a/mime.el b/mime.el
index 84872ff..9546f6e 100644 (file)
--- a/mime.el
+++ b/mime.el
@@ -41,12 +41,6 @@
   "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"
@@ -60,6 +54,25 @@ 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
 ;;;