From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Wed, 1 Sep 2010 20:52:06 +0000 (+0200)
Subject: Remove all <pre_int> place holders.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=a0d8ab30a881364eb0da6f0814f4acddb50e6dd2;p=gnus

Remove all <pre_int> place holders.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9905d4cfa..84c71c358 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index aa6d8fe29..5bbf5d589 100644
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -104,6 +104,9 @@ 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)
+      (replace-match "" t t))
+    (goto-char (point-min))
     (while (re-search-forward "<\\([^ />]+\\)\\([^>]*\\)>" nil t)
       (setq tag (match-string 1)
 	    parameters (match-string 2)