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

src/ChangeLog

+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,

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 ();