# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1283560573 0
# Node ID 5e7ec1dda5c03c7f8331a8ec9e8b2d0cf3c018ad
# Parent  49b2e6d8b396d851c41866927db670cdf9f37a23
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".

diff -r 49b2e6d8b396 -r 5e7ec1dda5c0 lisp/gnus/ChangeLog
--- 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
diff -r 49b2e6d8b396 -r 5e7ec1dda5c0 lisp/gnus/gnus-html.el
--- 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)