From 52b81965390e9fee555c56bb55332187548be636 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 12 May 1998 00:04:03 +0000 Subject: [PATCH] Change data format of mime-content-disposition. --- mime-parse.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 () -- 1.7.10.4