(html2text-format-tags): Avoid infloop on open tags.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3244a9f..1d4037a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-10-30  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * html2text.el (html2text-format-tags): Avoid infloop on open tags.
+
 2006-10-29  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-sum.el (gnus-set-mode-line): Quote % in group name.

diff --git a/lisp/html2text.el b/lisp/html2text.el
index de9cf64..05ba8ce 100644 (file)
--- a/lisp/html2text.el
+++ b/lisp/html2text.el
@@ -456,7 +456,9 @@ See the documentation for that variable."
              (p3) (p4))
          (search-backward "<" (point-min) t)
          (setq p1 (point))
-         (search-forward (format "</%s>" tag) (point-max) t)
+         (unless (search-forward (format "</%s>" tag) (point-max) t)
+           (goto-char p2)
+           (insert (format "</%s>" tag)))
          (setq p4 (point))
          (search-backward "</" (point-min) t)
          (setq p3 (point))