From: morioka <morioka>
Date: Fri, 19 Jun 1998 22:36:29 +0000 (+0000)
Subject: Move `mime-content-disposition' reference functions to mime-def.el.
X-Git-Tag: flim-1_5_0~37
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d14a1b8290815a5b76143ff1f2c40bea1df82f4e;p=elisp%2Fflim.git

Move `mime-content-disposition' reference functions to mime-def.el.
---

diff --git a/mime-parse.el b/mime-parse.el
index 5fb7dd9..fe341f9 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -58,6 +58,7 @@
 ;;; @ Content-Type
 ;;;
 
+;;;###autoload
 (defun mime-parse-Content-Type (string)
   "Parse STRING as field-body of Content-Type field.
 Return value is
@@ -81,6 +82,7 @@ are string."
 				(nreverse dest))
 	)))
 
+;;;###autoload
 (defun mime-read-Content-Type ()
   "Read field-body of Content-Type field from current-buffer,
 and return parsed it.  Format of return value is as same as
@@ -96,6 +98,7 @@ and return parsed it.  Format of return value is as same as
 
 (defconst mime-disposition-type-regexp mime-token-regexp)
 
+;;;###autoload
 (defun mime-parse-Content-Disposition (string)
   "Parse STRING as field-body of Content-Disposition field."
   (setq string (std11-unfold-string string))
@@ -112,6 +115,7 @@ and return parsed it.  Format of return value is as same as
 	      (nreverse dest))
 	)))
 
+;;;###autoload
 (defun mime-read-Content-Disposition ()
   "Read field-body of Content-Disposition field from current-buffer,
 and return parsed it."
@@ -120,22 +124,6 @@ and return parsed it."
 	(mime-parse-Content-Disposition str)
       )))
 
-(defsubst mime-content-disposition-type (content-disposition)
-  "Return disposition-type of CONTENT-DISPOSITION."
-  (cdr (car content-disposition)))
-
-(defsubst mime-content-disposition-parameters (content-disposition)
-  "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"))
-
 
 ;;; @ Content-Transfer-Encoding
 ;;;