From: morioka <morioka>
Date: Mon, 11 May 1998 17:17:17 +0000 (+0000)
Subject: Rename 'mime/Content-Disposition -> 'mime-read-Content-Disposition.
X-Git-Tag: remi-1_4_0-pre2~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ab51dcf9d7ac87dc633432c8b407fea1d68e386b;p=elisp%2Fsemi.git

Rename 'mime/Content-Disposition -> 'mime-read-Content-Disposition.
---

diff --git a/mime-parse.el b/mime-parse.el
index f656abb..2ccd24c 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -138,9 +138,9 @@ and return parsed it.  Format of return value is as same as
 	(cons ctype (nreverse dest))
 	)))
 
-(defun mime/Content-Disposition ()
+(defun mime-read-Content-Disposition ()
   "Read field-body of Content-Disposition field from current-buffer,
-and return parsed it. [mime-parse.el]"
+and return parsed it."
   (let ((str (std11-field-body "Content-Disposition")))
     (if str
 	(mime-parse-Content-Disposition str)
diff --git a/mime-play.el b/mime-play.el
index 95d93e1..cfdcbfd 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -335,7 +335,7 @@ window.")
 (defun mime-raw-get-original-filename (param &optional encoding)
   (or (mime-raw-get-uu-filename param encoding)
       (let (ret)
-	(or (if (or (and (setq ret (mime/Content-Disposition))
+	(or (if (or (and (setq ret (mime-read-Content-Disposition))
 			 (setq ret (assoc "filename" (cdr ret)))
 			 )
 		    (setq ret (assoc "name" param))
diff --git a/mime-view.el b/mime-view.el
index 1ac09d0..2f5e96f 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -917,7 +917,7 @@ The compressed face will be piped to this command.")
 (defun mime-raw-get-subject (param &optional encoding)
   (or (std11-find-field-body '("Content-Description" "Subject"))
       (let (ret)
-	(if (or (and (setq ret (mime/Content-Disposition))
+	(if (or (and (setq ret (mime-read-Content-Disposition))
 		     (setq ret (assoc "filename" (cdr ret)))
 		     )
 		(setq ret (assoc "name" param))