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 | |
| parent | e925113b0c29b8bf2b2a67b5c88ce812fcfa1ede (diff) | |
| download | emacs-3444dc6164e49874d253fb921df31f45f4554090.tar.gz | |
mm-decode.el (mm-shr): Add undisplayer to MIME handle.
| -rw-r--r-- | lisp/gnus/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/gnus/mm-decode.el | 8 |
2 files changed, 9 insertions, 1 deletions
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 <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. 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) |