From f39ccb2edd4b8677e163f02a46f8c47c6369dd00 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 6 Sep 2010 23:58:34 +0000 Subject: [PATCH] gnus-html.el (gnus-html-wash-tags): Remove tags, which confuses the rest of the function. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/gnus-html.el | 3 +++ 2 files changed, 6 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 7040aa6ec6c..2adcc66d917 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2010-09-06 Lars Magne Ingebrigtsen + * gnus-html.el (gnus-html-wash-tags): Remove tags, which + confuses the rest of the function. + * gnus-start.el (gnus-read-active-for-groups): Do a `gnus-request-scan' for the methods that support -retrieve-groups, too. diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index 3b7d2527c99..eaa0e99436e 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el @@ -117,6 +117,9 @@ fit these criteria." (while (re-search-forward " * * *\n" nil t) (replace-match "" t t)) (goto-char (point-min)) + (while (re-search-forward "]+>" 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