diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-27 03:59:59 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-27 03:59:59 +0000 |
| commit | 3444dc6164e49874d253fb921df31f45f4554090 (patch) | |
| tree | ade50bca7748a80d8f6a05d9c16acbe7762aef4b /lisp/gnus/mm-decode.el | |
| parent | e925113b0c29b8bf2b2a67b5c88ce812fcfa1ede (diff) | |
| download | emacs-3444dc6164e49874d253fb921df31f45f4554090.tar.gz | |
mm-decode.el (mm-shr): Add undisplayer to MIME handle.
Diffstat (limited to 'lisp/gnus/mm-decode.el')
| -rw-r--r-- | lisp/gnus/mm-decode.el | 8 |
1 files changed, 7 insertions, 1 deletions
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) |