From 36a806f35776e884b6228f72030993284789c785 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 2 Sep 2010 01:33:31 +0000 Subject: [PATCH] gnus-html.el (gnus-html-wash-tags): Remove all place holders. --- lisp/gnus/ChangeLog | 1 + lisp/gnus/gnus-html.el | 3 +++ 2 files changed, 4 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 1a0f2de1b93..4685373cf5f 100644 --- 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 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 aa6d8fe297d..5bbf5d5893b 100644 --- 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 " *\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) -- 2.39.2