X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fgnus.git-;a=blobdiff_plain;f=lisp%2Fhtml2text.el;fp=lisp%2Fhtml2text.el;h=41fea4b03069ce826caf61c924a5d5dfa68ebd0b;hp=4b89f8f09f76360f4e603fb69b67aff6b1c7cfe1;hb=2081c04cfde82ce1f92ae6f5cb46454bb6fe3040;hpb=162880cc7957dd33ca0c09573dc8ff526f3c8d69

diff --git a/lisp/html2text.el b/lisp/html2text.el
index 4b89f8f..41fea4b 100644
--- a/lisp/html2text.el
+++ b/lisp/html2text.el
@@ -463,9 +463,7 @@ See the documentation for that variable."
   (dolist (tag tag-list)
     (html2text-buffer-head)
     (while (re-search-forward (format "\\(</?%s[^>]*>\\)" tag) (point-max) t)
-      (let ((p1 (point)))
-	(search-backward "<")
-	(delete-region (point) p1)))))
+      (delete-region (match-beginning 0) (match-end 0)))))
 
 (defun html2text-format-tags ()
   "See the variable \"html2text-format-tag-list\" for documentation"