From: morioka <morioka>
Date: Tue, 12 May 1998 00:04:03 +0000 (+0000)
Subject: Change data format of mime-content-disposition.
X-Git-Tag: remi-1_4_0-pre2~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=52b81965390e9fee555c56bb55332187548be636;p=elisp%2Fsemi.git

Change data format of mime-content-disposition.
---

diff --git a/mime-parse.el b/mime-parse.el
index 4d6a057..5697698 100644
--- 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 ()