[Emacs-diffs] master be96414: * lisp/net/newst-backend.el (newsticker--sentinel-work):

[Glenn Morris]

branch: master
commit be96414a62f670655320605955a7b60817d67bdb
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    * lisp/net/newst-backend.el (newsticker--sentinel-work):
    Replace obsolete form of libxml-parse-xml-region.
---
 lisp/net/newst-backend.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
index 520a9e1..32893d2 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))