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

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9a87c359c67..3e569c7265d 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index d18bb860f53..d1fd493a37d 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/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)