Mercurial > emacs
changeset 110255:91bdd0141c6e
gnus-html.el (gnus-html-wash-tags): Remove <a name...> tags, which confuses the rest of the function.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 06 Sep 2010 23:58:34 +0000 |
| parents | 8b5fccbe534c |
| children | db1e98f7484b |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-html.el |
| diffstat | 2 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Mon Sep 06 23:56:27 2010 +0000 +++ b/lisp/gnus/ChangeLog Mon Sep 06 23:58:34 2010 +0000 @@ -1,5 +1,8 @@ 2010-09-06 Lars Magne Ingebrigtsen <larsi@gnus.org> + * gnus-html.el (gnus-html-wash-tags): Remove <a name...> 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.
--- a/lisp/gnus/gnus-html.el Mon Sep 06 23:56:27 2010 +0000 +++ b/lisp/gnus/gnus-html.el Mon Sep 06 23:58:34 2010 +0000 @@ -117,6 +117,9 @@ (while (re-search-forward " *<pre_int> *</pre_int> *\n" nil t) (replace-match "" t t)) (goto-char (point-min)) + (while (re-search-forward "<a name[^>]+>" 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)