From 82b344ffeaf3686d69e6225f54d389f0a40eb346 Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 21 Jun 1998 23:02:20 +0000 Subject: [PATCH] Require `mime' instead of `mime-lib'. (mime-entity-filename): Don't use `std11-strip-quoted-string'. --- mime-view.el | 25 ++++++++----------------- 1 file changed, 8 insertions(+), 17 deletions(-) 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) -- 1.7.10.4