Change data format of mime-content-disposition.

diff --git a/mime-parse.el b/mime-parse.el
index 4d6a057..5697698 100644 (file)
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -128,14 +128,15 @@ and return parsed it.  Format of return value is as same as
   (setq string (std11-unfold-string string))
   (if (string-match `,(concat "^" mime-disposition-type-regexp) string)
       (let* ((e (match-end 0))
-            (ctype (downcase (substring string 0 e)))
+            (type (downcase (substring string 0 e)))
             ret dest)
        (setq string (substring string e))
        (while (setq ret (mime-parse-parameter string))
          (setq dest (cons (car ret) dest)
                string (cdr ret))
          )
-       (cons ctype (nreverse dest))
+       (cons (cons 'type (intern type))
+             (nreverse dest))
        )))
 
 (defun mime-read-Content-Disposition ()