From: morioka <morioka>
Date: Mon, 11 May 1998 17:49:47 +0000 (+0000)
Subject: (mime-raw-get-original-filename): Use
X-Git-Tag: remi-1_4_0-pre2~10
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5c5f21ff9e143dc3bd98eeb912d4523ccabcc6bd;p=elisp%2Fsemi.git

(mime-raw-get-original-filename): Use
'mime-content-disposition-parameters.
---

diff --git a/mime-play.el b/mime-play.el
index cfdcbfd..20991eb 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -336,7 +336,10 @@ window.")
   (or (mime-raw-get-uu-filename param encoding)
       (let (ret)
 	(or (if (or (and (setq ret (mime-read-Content-Disposition))
-			 (setq ret (assoc "filename" (cdr ret)))
+			 (setq ret
+			       (assoc
+				"filename"
+				(mime-content-disposition-parameters ret)))
 			 )
 		    (setq ret (assoc "name" param))
 		    (setq ret (assoc "x-name" param))
diff --git a/mime-view.el b/mime-view.el
index 2f5e96f..8ae704c 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -918,7 +918,9 @@ The compressed face will be piped to this command.")
   (or (std11-find-field-body '("Content-Description" "Subject"))
       (let (ret)
 	(if (or (and (setq ret (mime-read-Content-Disposition))
-		     (setq ret (assoc "filename" (cdr ret)))
+		     (setq ret
+			   (assoc "filename"
+				  (mime-content-disposition-parameters ret)))
 		     )
 		(setq ret (assoc "name" param))
 		(setq ret (assoc "x-name" param))