mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2010-09-06 23:58:34 +00:00 committed by Katsumi Yamaoka
parent 26f96aa084
commit f39ccb2edd
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/gnus/ChangeLog
View File

@ -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.

3
lisp/gnus/gnus-html.el
View File

@ -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)