From 2249bb18d956ab7e1510d21bc526de1c329f90bb Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 16 May 1998 02:25:19 +0000 Subject: [PATCH] (mime-raw-get-original-filename): Abolish optional argument 'encoding; modify for 'mime-raw-get-uu-filename. --- mime-play.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/mime-play.el b/mime-play.el index b26f72d..7e50479 100644 --- a/mime-play.el +++ b/mime-play.el @@ -342,8 +342,10 @@ window.") (concat (regexp-* mime-view-file-name-char-regexp) "\\(\\." mime-view-file-name-char-regexp "+\\)*")) -(defun mime-raw-get-original-filename (param &optional encoding) - (or (mime-raw-get-uu-filename param encoding) +(defun mime-raw-get-original-filename (param) + (or (if (member (cdr (assq 'encoding param)) + mime-view-uuencode-encoding-name-list) + (mime-raw-get-uu-filename)) (let (ret) (or (if (or (and (setq ret (mime-read-Content-Disposition)) (setq ret -- 1.7.10.4