Synch to No Gnus 200401082352.

[elisp/gnus.git-] / lisp / html2text.el

diff --git a/lisp/html2text.el b/lisp/html2text.el
index 41fea4b..8822ea9 100644 (file)
--- a/lisp/html2text.el
+++ b/lisp/html2text.el
@@ -462,7 +462,7 @@ See the documentation for that variable."
   (interactive)
   (dolist (tag tag-list)
     (html2text-buffer-head)
-    (while (re-search-forward (format "\\(</?%s[^>]*>\\)" tag) (point-max) t)
+    (while (re-search-forward (format "</?%s[^>]*>" tag) (point-max) t)
       (delete-region (match-beginning 0) (match-end 0)))))
 
 (defun html2text-format-tags ()
@@ -472,12 +472,12 @@ See the documentation for that variable."
     (let ((tag      (car tag-and-function))
          (function (cdr tag-and-function)))
       (html2text-buffer-head)
-      (while (re-search-forward (format "\\(<%s\\( [^>]*\\)?>\\)" tag)
+      (while (re-search-forward (format "<%s\\( [^>]*\\)?>" tag)
                                (point-max) t)
        (let ((p1)
              (p2 (point))
              (p3) (p4)
-             (attr (match-string 1)))
+             (attr (match-string 0)))
          (search-backward "<" (point-min) t)
          (setq p1 (point))
          (re-search-forward (format "</%s>" tag) (point-max) t)
@@ -511,7 +511,7 @@ See the documentation for that variable."
     (let ((tag      (car tag-and-function))
          (function (cdr tag-and-function)))
       (html2text-buffer-head)
-      (while (re-search-forward (format "\\(<%s\\( [^>]*\\)?>\\)" tag)
+      (while (re-search-forward (format "<%s\\( [^>]*\\)?>" tag)
                                (point-max) t)
        (let ((p1)
              (p2 (point)))