From 8fab3e398d5759069a6f12584fda35d227906364 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 4 Sep 2010 00:36:13 +0000 Subject: [PATCH] gnus-html.el: Remove more white space before image spacers; Decode entities at the end. So that entities inside the tags don't mess up the rest of the "parsing". --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-html.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 922cef18b8f..4ad4fe4e117 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -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 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 diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index c0e0ed73391..1e6cdc5c9b7 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el @@ -113,7 +113,7 @@ fit these criteria." (let (tag parameters string start end images url) (mm-url-decode-entities) (goto-char (point-min)) - (while (re-search-forward " *\n" nil t) + (while (re-search-forward " * *\n" nil t) (replace-match "" t t)) (goto-char (point-min)) (while (re-search-forward "<\\([^ />]+\\)\\([^>]*\\)>" nil t) -- 2.39.2