Mercurial > emacs

diff lisp/gnus/mm-decode.el @ 111199:d0c566960277

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mm-decode.el (mm-shr): Add undisplayer to MIME handle.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Wed, 27 Oct 2010 03:59:59 +0000
parents 25ddbcf2f2ea
children b01067bf2ec9
line wrap: on
line diff
--- 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)