From: morioka <morioka>
Date: Sat, 16 May 1998 02:25:19 +0000 (+0000)
Subject: (mime-raw-get-original-filename): Abolish optional argument
X-Git-Tag: remi-1_4_0~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2249bb18d956ab7e1510d21bc526de1c329f90bb;p=elisp%2Fsemi.git

(mime-raw-get-original-filename): Abolish optional argument
'encoding; modify for 'mime-raw-get-uu-filename.
---

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