(gnus-html-wash-tags): Remove even more white space around <pre_int>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1fda7c4..4c21106 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-html.el (gnus-html-wash-tags): Remove even more white space
+       around <pre_int>.
+
        * gnus-art.el (gnus-article-copy-string): Say what data we copied.
 
        * nnmh.el (nnmh-request-list-1): Optimize for speed.
@@ -10,7 +13,7 @@
        not all directories in the path in addition to the image directories.
        (mm-image-load-path): Maintain a cache of the image directories so that
        the `g' command in Gnus doesn't have to stat dozens of directories each
-       time. 
+       time.
 
        * gnus-html.el (gnus-html-put-image): Allow images to be removed.
        (gnus-html-wash-tags): Add a new `i' command to insert images.

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index e14d109..f7eb05b 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -112,7 +112,7 @@ fit these criteria."
 (defun gnus-html-wash-tags ()
   (let (tag parameters string start end images url)
     (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)