From: morioka <morioka>
Date: Sun, 21 Jun 1998 23:02:20 +0000 (+0000)
Subject: Require `mime' instead of `mime-lib'.
X-Git-Tag: semi-1_7_1~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=82b344ffeaf3686d69e6225f54d389f0a40eb346;p=elisp%2Fsemi.git

Require `mime' instead of `mime-lib'.
(mime-entity-filename): Don't use `std11-strip-quoted-string'.
---

diff --git a/mime-view.el b/mime-view.el
index 68314de..88d9297 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -28,7 +28,7 @@
 ;;; Code:
 
 (require 'std11)
-(require 'mime-lib)
+(require 'mime)
 (require 'semi-def)
 (require 'calist)
 (require 'alist)
@@ -243,22 +243,13 @@ If optional argument MESSAGE-INFO is not specified,
 
 (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)
-	     ))
-      ))
+      (mime-content-disposition-filename
+       (mime-entity-content-disposition entity))
+      (cdr (let ((param (mime-content-type-parameters
+			 (mime-entity-content-type entity))))
+	     (or (assoc "name" param)
+		 (assoc "x-name" param))
+	     ))))
 
 (defun mime-view-entity-title (entity)
   (or (mime-entity-read-field entity 'Content-Description)