Merge from gnus--rel--5.10

[gnu-emacs] / lisp / gnus / html2text.el

diff --git a/lisp/gnus/html2text.el b/lisp/gnus/html2text.el
index 68934c909e9a833ed264c9ae4aa414afcd71917a..08044225ab4e96d3c37d0c25ce328a928303eb6f 100644 (file)
--- a/lisp/gnus/html2text.el
+++ b/lisp/gnus/html2text.el
@@ -423,7 +423,9 @@ See the documentation for that variable."
              (p3) (p4))
          (search-backward "<" (point-min) t)
          (setq p1 (point))
-         (re-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))