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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9a87c359c671b4f57db2410ed45fbde29cff4e2c..3e569c7265d3e61c5dbb4d58f48e04304ebe06b0 100644 (file)
--- 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 d18bb860f535a1c8dde1942d3e85e3fadccb3ab4..d1fd493a37dc18b84983f795d82a8a4ff6121a73 100644 (file)
--- 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)