gnus-html.el (gnus-html-wash-tags): Remove <a name...> tags, which confuses the rest...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7040aa6ec6cc891137459acdba0fa8927564fc99..2adcc66d917e567c23f6e6036961c2d3bc863398 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el
index 3b7d2527c99f7d4f95aeacec4f5634f50e589f0a..eaa0e99436eae5ab6e3c3cfe086cdd0b64eee6de 100644 (file)
--- a/lisp/gnus/gnus-html.el
+++ b/lisp/gnus/gnus-html.el
@@ -117,6 +117,9 @@ fit these criteria."
     (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)