From: morioka <morioka>
Date: Fri, 26 Jun 1998 07:12:20 +0000 (+0000)
Subject: (mime-entity-encoding): New implementation.
X-Git-Tag: chao-1_6_1-199811302358~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a1ce2587a90757d1a712a04d123b3962dbf72f03;p=elisp%2Fflim.git

(mime-entity-encoding): New implementation.
---

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)