summaryrefslogtreecommitdiff
path: root/lisp/gnus/html2text.el
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2006-11-02 23:10:57 +0000
committerMiles Bader <miles@gnu.org>2006-11-02 23:10:57 +0000
commitb193caa336c5d0b495933f149abe3407734a455f (patch)
tree37e554d858180f965849047355cc04eec7d9a110 /lisp/gnus/html2text.el
parent8917392a520c6790e51c0febc084738c7db29d62 (diff)
downloademacs-b193caa336c5d0b495933f149abe3407734a455f.tar.gz
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
Diffstat (limited to 'lisp/gnus/html2text.el')
-rw-r--r--lisp/gnus/html2text.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/gnus/html2text.el b/lisp/gnus/html2text.el
index 68934c909e9..08044225ab4 100644
--- 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))