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

Move `mime-content-disposition-parameter' and
`mime-content-disposition-filename' from mime.el to mime-def.el again.
---

diff --git a/mime-def.el b/mime-def.el
index 94dec7e..78b7bf0 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -165,6 +165,15 @@
   "Return disposition-parameters of CONTENT-DISPOSITION."
   (cdr content-disposition))
 
+(defsubst mime-content-disposition-parameter (content-disposition parameter)
+  "Return PARAMETER value of CONTENT-DISPOSITION."
+  (std11-strip-quoted-string
+   (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 9546f6e..84872ff 100644
--- 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
 ;;;