From 3444dc6164e49874d253fb921df31f45f4554090 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 27 Oct 2010 03:59:59 +0000 Subject: [PATCH] mm-decode.el (mm-shr): Add undisplayer to MIME handle. --- lisp/gnus/ChangeLog | 2 ++ lisp/gnus/mm-decode.el | 8 +++++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + * 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) -- 2.39.5