From: morioka <morioka>
Date: Wed, 17 Jun 1998 19:33:04 +0000 (+0000)
Subject: Move `mime-entity-filename' to mime-view.el.
X-Git-Tag: remi-199811302358~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ab0b9481ec78ecc9ab949b6891cf8ae815f35f31;p=elisp%2Fsemi.git

Move `mime-entity-filename' to mime-view.el.
---

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)