[Emacs-diffs] Changes to emacs/lisp/gnus/html2text.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     06/11/02 23:10:57

Index: html2text.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/html2text.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- html2text.el        16 Feb 2006 11:36:52 -0000      1.11
+++ html2text.el        2 Nov 2006 23:10:57 -0000       1.12
@@ -423,7 +423,9 @@
              (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))