Mercurial > emacs
changeset 110170:5e7ec1dda5c0
gnus-html.el: Remove more white space before <pre_int> image spacers; Decode entities at the end. So that entities inside the tags don't mess up the rest of the "parsing".
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sat, 04 Sep 2010 00:36:13 +0000 |
| parents | 49b2e6d8b396 |
| children | a05bc4ad2d3f |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-html.el |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sat Sep 04 00:30:49 2010 +0000 +++ b/lisp/gnus/ChangeLog Sat Sep 04 00:36:13 2010 +0000 @@ -5,6 +5,10 @@ (gnus-html-insert-image): New command and keystroke. (gnus-html-redisplay-with-images): New command and keystroke. (gnus-html-show-images): Renamed command. + (gnus-html-wash-tags): Remove more white space before <pre_int> image + spacers. + (gnus-html-wash-tags): Decode entities at the end, so that entities + inside the tags don't mess up the rest of the "parsing". * gnus-agent.el (gnus-agent-auto-agentize-methods): Change the default so that nnimap methods aren't agentized by default. There's apparently
--- a/lisp/gnus/gnus-html.el Sat Sep 04 00:30:49 2010 +0000 +++ b/lisp/gnus/gnus-html.el Sat Sep 04 00:36:13 2010 +0000 @@ -113,7 +113,7 @@ (let (tag parameters string start end images url) (mm-url-decode-entities) (goto-char (point-min)) - (while (re-search-forward "<pre_int> *</pre_int>\n" nil t) + (while (re-search-forward " *<pre_int> *</pre_int>\n" nil t) (replace-match "" t t)) (goto-char (point-min)) (while (re-search-forward "<\\([^ />]+\\)\\([^>]*\\)>" nil t)