Remove more white space before <pre_int> image spacers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc32f48..db75279 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,8 @@
        (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-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-html.el b/lisp/gnus-html.el
index c0e0ed7..1e6cdc5 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/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 "<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)