newsticker: Fix bug#18787: Tell libxml-parse-xml-region to discard comments.

* lisp/net/newst-backend.el (newsticker--sentinel-work): Tell
`libxml-parse-xml-region' to discard comments. Fixes bug#18787.

2 files changed, 9 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d3a9b64a478..4c7b58341dd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-22  Ulf Jasper  <ulf.jasper@web.de>
+
+        * net/newst-backend.el (newsticker--sentinel-work): Tell
+        `libxml-parse-xml-region' to discard comments. Fixes bug#18787.
+
 2014-11-22  Michael Albinus  <michael.albinus@gmx.de>
 
         * net/tramp-sh.el (tramp-sh-handle-start-file-process)
diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
index ba100534085..7be07c74fcb 100644
--- a/lisp/net/newst-backend.el
+++ b/lisp/net/newst-backend.el
@@ -879,10 +879,11 @@ Argument BUFFER is the buffer of the retrieval process."
                   (decode-coding-region (point-min) (point-max)
                                         coding-system))
                 (condition-case errordata
-                    ;; The xml parser might fail
-                    ;; or the xml might be bugged
+                    ;; The xml parser might fail or the xml might be
+                    ;; bugged
                     (if (fboundp 'libxml-parse-xml-region)
-                        (list (libxml-parse-xml-region (point-min) (point-max)))
+                        (list (libxml-parse-xml-region (point-min) (point-max)
+                                                       nil t))
                       (xml-parse-region (point-min) (point-max)))
                   (error (message "Could not parse %s: %s"
                                   (buffer-name) (cadr errordata))