# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1283391211 0
# Node ID 91cc7bab2ca4672ce00fce7609451f7738636f75
# Parent  8c2040cb14d7e5e0f9a7aed8b3eecf1cc725ab72
gnus-html.el (gnus-html-wash-tags): Remove all <pre_int> place holders.

diff -r 8c2040cb14d7 -r 91cc7bab2ca4 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Thu Sep 02 01:29:42 2010 +0000
+++ b/lisp/gnus/ChangeLog	Thu Sep 02 01:33:31 2010 +0000
@@ -2,6 +2,7 @@
 
 	* gnus-html.el (gnus-html-wash-tags): Don't show images that are really
 	small. They're probably tracking images.
+	(gnus-html-wash-tags): Remove all <pre_int> place holders.
 
 	* nntp.el (nntp-request-set-mark): Refuse to do marks if
 	nntp-marks-file-name is nil.
diff -r 8c2040cb14d7 -r 91cc7bab2ca4 lisp/gnus/gnus-html.el
--- a/lisp/gnus/gnus-html.el	Thu Sep 02 01:29:42 2010 +0000
+++ b/lisp/gnus/gnus-html.el	Thu Sep 02 01:33:31 2010 +0000
@@ -104,6 +104,9 @@
   (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)
+      (replace-match "" t t))
+    (goto-char (point-min))
     (while (re-search-forward "<\\([^ />]+\\)\\([^>]*\\)>" nil t)
       (setq tag (match-string 1)
 	    parameters (match-string 2)