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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d3a9b64a478aedf98605860774833626347e2222..4c7b58341dd4d06227ec2f9c89bc82a164e6fffd 100644 (file)
--- 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 ba1005340850c23d84b5ff19a2efec2443ce666b..7be07c74fcbf4d6309d8003a6165fd14e9b8f184 100644 (file)
--- 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))