[Emacs-diffs] /srv/bzr/emacs/trunk r101287: gnus-html.el (gnus-html-wash-tags): Remove all <pre_int> place holders.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101287
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2010-09-02 01:33:31 +0000
message:
  gnus-html.el (gnus-html-wash-tags): Remove all <pre_int> place holders.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-html.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-09-02 01:29:42 +0000
+++ b/lisp/gnus/ChangeLog       2010-09-02 01:33:31 +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.

=== modified file 'lisp/gnus/gnus-html.el'
--- a/lisp/gnus/gnus-html.el    2010-09-02 01:29:42 +0000
+++ b/lisp/gnus/gnus-html.el    2010-09-02 01:33:31 +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)