Mercurial > emacs

diff lisp/gnus/html2text.el @ 73627:e7c14a8e6688

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 161-162) - Update from CVS 2006-11-01 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/gnus-art.el (article-hide-boring-headers): Fetch date from gnus-original-article-buffer to avoid problems with localized date strings. 2006-10-30 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/html2text.el (html2text-format-tags): Avoid infloop on open tags. Revision: emacs@sv.gnu.org/emacs--devo--0--patch-495
author Miles Bader <miles@gnu.org>
date Thu, 02 Nov 2006 23:10:57 +0000
parents dc25f1fd56f5
children e3694f1cb928
line wrap: on
line diff
--- a/lisp/gnus/html2text.el	Thu Nov 02 23:06:20 2006 +0000
+++ b/lisp/gnus/html2text.el	Thu Nov 02 23:10:57 2006 +0000
@@ -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))