From a1ce2587a90757d1a712a04d123b3962dbf72f03 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 26 Jun 1998 07:12:20 +0000 Subject: [PATCH] (mime-entity-encoding): New implementation. --- mime.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/mime.el b/mime.el index 993b30b..0ba74c9 100644 --- a/mime.el +++ b/mime.el @@ -153,7 +153,14 @@ ENTITY is used." entity disposition) disposition)))))) -(defalias 'mime-entity-encoding 'mime-entity-encoding-internal) +(defun mime-entity-encoding (entity) + (or (mime-entity-encoding-internal entity) + (let ((ret (mime-fetch-field 'Content-Transfer-Encoding entity))) + (if ret + (let ((encoding (mime-parse-Content-Transfer-Encoding ret))) + (when encoding + (mime-entity-set-encoding-internal entity encoding) + encoding)))))) (defun mime-read-field (field-name &optional entity) (or (symbolp field-name) -- 1.7.10.4