2001-12-05 Katsumi Yamaoka <yamaoka@jpl.org>

	* mm-view.wl (mm-inline-text): Decode a charset-encoded rich text.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03b34c8..0d60faf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-05  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mm-view.wl (mm-inline-text): Decode a charset-encoded rich text.
+
 2001-12-04 08:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-url.el: Require executable.

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index fbceb3a..414a485 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -151,15 +151,6 @@
                              '(background background-pixmap foreground)))
                  (delete-region ,(point-min-marker)
                                 ,(point-max-marker)))))))))
-     ((or (equal type "enriched")
-         (equal type "richtext"))
-      (save-excursion
-       (mm-with-unibyte-buffer
-         (mm-insert-part handle)
-         (save-window-excursion
-           (enriched-decode (point-min) (point-max))
-           (setq text (buffer-string)))))
-      (mm-insert-inline handle text))
      ((equal type "x-vcard")
       (mm-insert-inline
        handle
@@ -194,6 +185,9 @@
        (save-restriction
          (narrow-to-region b (point))
          (set-text-properties (point-min) (point-max) nil)
+         (when (or (equal type "enriched")
+                   (equal type "richtext"))
+           (enriched-decode (point-min) (point-max)))
          (mm-handle-set-undisplayer
           handle
           `(lambda ()