From 2ab6f6d72b13ac9b146cee9066ccff420214f3fa Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 26 Jun 1998 01:16:18 +0000 Subject: [PATCH] (mime-entity-content-disposition): New implementation. --- mime.el | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) diff --git a/mime.el b/mime.el index 576def6..993b30b 100644 --- a/mime.el +++ b/mime.el @@ -119,11 +119,6 @@ ENTITY is used." (defalias 'mime-entity-header-start 'mime-entity-header-start-internal) (defalias 'mime-entity-header-end 'mime-entity-header-end-internal) -(defalias 'mime-entity-content-type 'mime-entity-content-type-internal) -(defalias 'mime-entity-content-disposition - 'mime-entity-content-disposition-internal) -(defalias 'mime-entity-encoding 'mime-entity-encoding-internal) - (defun mime-fetch-field (field-name &optional entity) (or (symbolp field-name) (setq field-name (intern (capitalize (capitalize field-name))))) @@ -146,6 +141,20 @@ ENTITY is used." ) field-body)))) +(defalias 'mime-entity-content-type 'mime-entity-content-type-internal) + +(defun mime-entity-content-disposition (entity) + (or (mime-entity-content-disposition-internal entity) + (let ((ret (mime-fetch-field 'Content-Disposition entity))) + (if ret + (let ((disposition (mime-parse-Content-Disposition ret))) + (when disposition + (mime-entity-set-content-disposition-internal + entity disposition) + disposition)))))) + +(defalias 'mime-entity-encoding 'mime-entity-encoding-internal) + (defun mime-read-field (field-name &optional entity) (or (symbolp field-name) (setq field-name (capitalize (capitalize field-name)))) -- 1.7.10.4