From 9abd05321943d7c962c79bfd4ef3354d93ead53e Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Wed, 20 Jul 2011 22:45:13 +0200
Subject: [PATCH] * xml.c (parse_region): Make sure we always return a tree.
---
src/ChangeLog | 4 ++++
src/xml.c | 3 ++-
2 files changed, 6 insertions(+), 1 deletion(-)
diff --git a/src/ChangeLog b/src/ChangeLog
index 02819607fd9..1f0ebae2645 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-20 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * xml.c (parse_region): Make sure we always return a tree.
+
2011-07-20 HAMANO Kiyoto <khiker.mail@gmail.com>
* xml.c (parse_region): If a document contains only comments,
diff --git a/src/xml.c b/src/xml.c
index 6d212b44059..a8a4d8122da 100644
--- a/src/xml.c
+++ b/src/xml.c
@@ -138,7 +138,8 @@ parse_region (Lisp_Object start, Lisp_Object end, Lisp_Object base_url, int html
if (result == Qnil)
result = r;
else
- result = Fnreverse (Fcons (r, result));
+ result = Fcons (intern ("top"),
+ Fcons (Qnil, Fnreverse (Fcons (r, result))));
xmlFreeDoc (doc);
xmlCleanupParser ();
--
2.39.5