mm-decode.el (mm-shr): Add undisplayer to MIME handle.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3cf3c2c..39346ca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-10-27  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * mm-decode.el (mm-shr): Add undisplayer to MIME handle.
+
        * gnus-group.el (gnus-group-completing-read)
        (gnus-read-ephemeral-bug-group): Replace replace-regexp-in-string with
        gnus-replace-in-string.

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index d18bb86..d1fd493 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1712,7 +1712,13 @@ If RECURSIVE, search recursively."
                       (mm-decode-coding-string (buffer-string) charset)
                     (erase-buffer)
                     (mm-enable-multibyte))))
-        (libxml-parse-html-region (point-min) (point-max)))))))
+        (libxml-parse-html-region (point-min) (point-max))))
+      (mm-handle-set-undisplayer
+       handle
+       `(lambda ()
+         (let ((inhibit-read-only t))
+           (delete-region ,(point-min-marker)
+                          ,(point-max-marker))))))))
 
 (provide 'mm-decode)