From d3fd0cd9b3c9f07269dc5a96f20c04849fc24f8b Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Sun, 21 Jun 1998 22:34:49 +0000
Subject: [PATCH] Move `mime-content-disposition-parameter' and
 `mime-content-disposition-filename' from mime-def.el to
 mime.el.

---
 mime-def.el |    8 --------
 mime.el     |   25 +++++++++++++++++++------
 2 files changed, 19 insertions(+), 14 deletions(-)

diff --git a/mime-def.el b/mime-def.el
index 0babafb..94dec7e 100644
--- 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
--- 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
 ;;;
 
-- 
1.7.10.4