readGmane <-
readXML(spec = list(Author = list("node", "/item/creator"),
Content = list("node", "/item/description"),
DateTimeStamp = list("function", function(node)
strptime(sapply(XML::getNodeSet(node, "/item/date"), XML::xmlValue),
format = "%Y-%m-%dT%H:%M:%S",
tz = "GMT")),
Description = list("unevaluated", ""),
Heading = list("node", "/item/title"),
ID = list("node", "/item/link"),
Origin = list("unevaluated", "Gmane Mailing List Archive")),
doc = PlainTextDocument())
Run the code above in your browser using DataLab