[Emacs-diffs] /srv/bzr/emacs/trunk r102120: mm-decode.el (mm-shr): Add undisplayer to MIME handle.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102120
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-10-27 03:59:59 +0000
message:
  mm-decode.el (mm-shr): Add undisplayer to MIME handle.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mm-decode.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-10-27 01:09:11 +0000
+++ b/lisp/gnus/ChangeLog       2010-10-27 03:59:59 +0000
@@ -1,5 +1,7 @@
 2010-10-27  Katsumi Yamaoka  <address@hidden>
 
+       * 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.

=== modified file 'lisp/gnus/mm-decode.el'
--- a/lisp/gnus/mm-decode.el    2010-10-21 01:23:34 +0000
+++ b/lisp/gnus/mm-decode.el    2010-10-27 03:59:59 +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)