From: Glenn Morris <rgm@gnu.org>
Date: Fri, 20 Apr 2018 17:46:45 +0000 (-0400)
Subject: * lisp/net/newst-backend.el (newsticker--sentinel-work):
X-Git-Tag: emacs-27.0.90~5122
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be96414a62f670655320605955a7b60817d67bdb;p=emacs.git

* lisp/net/newst-backend.el (newsticker--sentinel-work):
Replace obsolete form of libxml-parse-xml-region.
---

diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
index 520a9e19b42..32893d2eea5 100644
--- a/lisp/net/newst-backend.el
+++ b/lisp/net/newst-backend.el
@@ -874,11 +874,12 @@ 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)
-                                                       nil t))
+                        (progn
+                          (xml-remove-comments (point-min) (point-max))
+                          (list (libxml-parse-xml-region (point-min) (point-max)
+                                                         nil)))
                       (xml-parse-region (point-min) (point-max)))
                   (error (message "Could not parse %s: %s"
                                   (buffer-name) (cadr errordata))