# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1283817514 0
# Node ID 91bdd0141c6e3fed48585eaa94a1b0e1d94022ca
# Parent  8b5fccbe534c9b93c14cf29109761ee2af1e8494
gnus-html.el (gnus-html-wash-tags): Remove <a name...> tags, which confuses the rest of the function.

diff -r 8b5fccbe534c -r 91bdd0141c6e lisp/gnus/ChangeLog
--- 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.
 
diff -r 8b5fccbe534c -r 91bdd0141c6e lisp/gnus/gnus-html.el
--- 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)