From ab0b9481ec78ecc9ab949b6891cf8ae815f35f31 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Wed, 17 Jun 1998 19:33:04 +0000
Subject: [PATCH] Move `mime-entity-filename' to mime-view.el.

---
 mime-play.el |   19 -------------------
 1 file changed, 19 deletions(-)

diff --git a/mime-play.el b/mime-play.el
index 8761d7a..8c94c23 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -294,25 +294,6 @@ window.")
   (concat (regexp-* mime-view-file-name-char-regexp)
 	  "\\(\\." mime-view-file-name-char-regexp "+\\)*"))
 
-(defun mime-entity-filename (entity)
-  (or (mime-entity-uu-filename entity)
-      (let ((ret (mime-entity-content-disposition entity)))
-	(and ret
-	     (setq ret (mime-content-disposition-filename ret))
-	     (std11-strip-quoted-string ret)
-	     ))
-      (let ((ret (mime-entity-content-type entity)))
-	(and ret
-	     (setq ret
-		   (cdr
-		    (let ((param (mime-content-type-parameters ret)))
-		      (or (assoc "name" param)
-			  (assoc "x-name" param))
-		      )))
-	     (std11-strip-quoted-string ret)
-	     ))
-      ))
-
 (defun mime-entity-safe-filename (entity)
   (replace-as-filename
    (or (mime-entity-filename entity)
-- 
1.7.10.4