From: morioka <morioka>
Date: Thu, 28 May 1998 22:26:16 +0000 (+0000)
Subject: (mime-preview-text/enriched): New function; abolish
X-Git-Tag: remi-1_4_0_91~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4c5ac05762abe662a5fa5034a8bf8b614dd8c751;p=elisp%2Fsemi.git

(mime-preview-text/enriched): New function; abolish
'mime-preview-filter-for-text/enriched.
---

diff --git a/mime-text.el b/mime-text.el
index deb92c4..c90effd 100644
--- a/mime-text.el
+++ b/mime-text.el
@@ -159,12 +159,17 @@ local variable `mime-text-decoder' and variable
       (richtext-decode beg (point-max))
       )))
 
-(defun mime-preview-filter-for-text/enriched (situation)
-  (let ((beg (point-min)))
-    (remove-text-properties beg (point-max) '(face nil))
-    (mime-text-decode-body situation)
-    (enriched-decode beg (point-max))
-    ))
+(defun mime-preview-text/enriched (entity situation)
+  (save-restriction
+    (narrow-to-region (point-max)(point-max))
+    (insert-buffer-substring mime-raw-buffer
+			     (mime-entity-body-start entity)
+			     (mime-entity-body-end entity))
+    (let ((beg (point-min)))
+      (remove-text-properties beg (point-max) '(face nil))
+      (mime-text-decode-body situation)
+      (enriched-decode beg (point-max))
+      )))
 
 
 ;;; @ end