From ca86b8b2f2de6582a9bd65f35ff0ed475f1f33fd Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 28 May 1998 22:17:50 +0000 Subject: [PATCH] (mime-preview-text/richtext): New function; abolish 'mime-preview-filter-for-text/richtext. --- mime-text.el | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/mime-text.el b/mime-text.el index e8a0048..deb92c4 100644 --- a/mime-text.el +++ b/mime-text.el @@ -147,12 +147,17 @@ local variable `mime-text-decoder' and variable (run-hooks 'mime-preview-text/plain-hook) )) -(defun mime-preview-filter-for-text/richtext (situation) - (let ((beg (point-min))) - (remove-text-properties beg (point-max) '(face nil)) - (mime-text-decode-body situation) - (richtext-decode beg (point-max)) - )) +(defun mime-preview-text/richtext (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) + (richtext-decode beg (point-max)) + ))) (defun mime-preview-filter-for-text/enriched (situation) (let ((beg (point-min))) -- 1.7.10.4