diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-09-06 23:58:34 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-09-06 23:58:34 +0000 |
| commit | f39ccb2edd4b8677e163f02a46f8c47c6369dd00 (patch) | |
| tree | 3540e31b30dcc5b2897f7e953a21eef5394b3bf2 /lisp/gnus/gnus-html.el | |
| parent | 26f96aa0845611bd418e13cce1a2a719f6078387 (diff) | |
| download | emacs-f39ccb2edd4b8677e163f02a46f8c47c6369dd00.tar.gz | |
gnus-html.el (gnus-html-wash-tags): Remove <a name...> tags, which confuses the rest of the function.
Diffstat (limited to 'lisp/gnus/gnus-html.el')
| -rw-r--r-- | lisp/gnus/gnus-html.el | 3 |
1 files changed, 3 insertions, 0 deletions
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 " *<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) |