gnus-html.el (gnus-html-wash-tags): Remove all <pre_int> place holders.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 1a0f2de1b93124e440a6272bc5f0ac88ddeaee45..4685373cf5f7d11faddcd444c89033be4aea4524 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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/gnus-html.el b/lisp/gnus/gnus-html.el
index aa6d8fe297d0a05cc7c998d28b3259933cb59bba..5bbf5d5893b1b4adb04b39cd20e71384fb3f89f9 100644 (file)
--- a/lisp/gnus/gnus-html.el
+++ b/lisp/gnus/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)