From 5c5f21ff9e143dc3bd98eeb912d4523ccabcc6bd Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 11 May 1998 17:49:47 +0000 Subject: [PATCH] (mime-raw-get-original-filename): Use 'mime-content-disposition-parameters. --- mime-play.el | 5 ++++- mime-view.el | 4 +++- 2 files changed, 7 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4