# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1288151999 0
# Node ID d0c566960277d0039edda327a5c2838882a21795
# Parent  898ddb0c960d51f0c9ac4516956c95218e1df0dc
mm-decode.el (mm-shr): Add undisplayer to MIME handle.

diff -r 898ddb0c960d -r d0c566960277 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Tue Oct 26 20:48:28 2010 -0700
+++ b/lisp/gnus/ChangeLog	Wed Oct 27 03:59:59 2010 +0000
@@ -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 -r 898ddb0c960d -r d0c566960277 lisp/gnus/mm-decode.el
--- a/lisp/gnus/mm-decode.el	Tue Oct 26 20:48:28 2010 -0700
+++ b/lisp/gnus/mm-decode.el	Wed Oct 27 03:59:59 2010 +0000
@@ -1712,7 +1712,13 @@
 		       (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)