Mercurial > emacs
changeset 111199:d0c566960277
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 | 898ddb0c960d |
| children | b508dbb6fb11 |
| files | lisp/gnus/ChangeLog lisp/gnus/mm-decode.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)