X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fhtml2text.el;h=8822ea901d73691855e617a0dce6dd995c136edc;hb=b3424b97e9e4280ce636cebd62997d80a7d92ac4;hp=41fea4b03069ce826caf61c924a5d5dfa68ebd0b;hpb=04ba5250e9e47ebe40860a0902d4ef6405ca143f;p=elisp%2Fgnus.git-

diff --git a/lisp/html2text.el b/lisp/html2text.el
index 41fea4b..8822ea9 100644
--- 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)))