* xml.c (parse_region): Make sure we always return a tree.

diff --git a/src/ChangeLog b/src/ChangeLog
index 02819607fd9431ad6cc127c63ee38dfedc44f00b..1f0ebae264533a78a5094fb454bb42ddbb0805db 100644 (file)
--- 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 6d212b440591f93652bece94d0d893a4e13c207d..a8a4d8122da32f90ee1646392b85808a7c3f2d13 100644 (file)
--- 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 ();