From 4c5ac05762abe662a5fa5034a8bf8b614dd8c751 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 28 May 1998 22:26:16 +0000 Subject: [PATCH] (mime-preview-text/enriched): New function; abolish 'mime-preview-filter-for-text/enriched. --- mime-text.el | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) 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 -- 1.7.10.4