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

diff --git a/mime-parse.el b/mime-parse.el
index f656abb..2ccd24c 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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))