From: Lars Magne Ingebrigtsen Date: Sat, 4 Sep 2010 00:36:13 +0000 (+0000) Subject: gnus-html.el: Remove more white space before image spacers; Decode entities... X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~107 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8fab3e398d5759069a6f12584fda35d227906364;p=emacs.git 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". --- 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)