From: morioka <morioka>
Date: Sun, 21 Jun 1998 22:34:49 +0000 (+0000)
Subject: Move `mime-content-disposition-parameter' and
X-Git-Tag: flim-1_5_0~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d3fd0cd9b3c9f07269dc5a96f20c04849fc24f8b;p=elisp%2Fflim.git

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
--- 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
 ;;;