Mercurial > emacs
changeset 110110:91cc7bab2ca4
gnus-html.el (gnus-html-wash-tags): Remove all <pre_int> place holders.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Thu, 02 Sep 2010 01:33:31 +0000 |
| parents | 8c2040cb14d7 |
| children | 5b9f64b04a04 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-html.el |
| diffstat | 2 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)