newsticker: Handle embedded (x)html in atom feeds.

* lisp/net/newst-backend.el (newsticker--parse-atom-1.0): Handle
embedded (x)html in summary node.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d412404efbedc0b52e4409533bc8f9d66f77743f..a29cad13cc2f2387f820fa51b46914a64c66231c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-27  Ulf Jasper  <ulf.jasper@web.de>
+
+       * net/newst-backend.el (newsticker--parse-atom-1.0): Handle
+       embedded (x)html in summary node.
+
 2014-11-27  Sam Steingold  <sds@gnu.org>
 
        * menu-bar.el (menu-bar-open): When everything else fails,

diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
index 41f8b8440bdafbf0579e9026638e6ce78b12222c..31ebc7ac58384216f6113bfede104e0fbae5852d 100644 (file)
--- a/lisp/net/newst-backend.el
+++ b/lisp/net/newst-backend.el
@@ -1216,13 +1216,17 @@ URL `http://www.atompub.org/2005/08/17/draft-ietf-atompub-format-11.html'"
                             (car (xml-get-children node 'title)))))
                     ;; desc-fn
                     (lambda (node)
-                      ;; unxml the content node. Atom allows for
-                      ;; integrating (x)html into the atom structure
-                      ;; but we need the raw html string.
+                      ;; unxml the content or the summary node. Atom
+                      ;; allows for integrating (x)html into the atom
+                      ;; structure but we need the raw html string.
                       ;; e.g. http://www.heise.de/open/news/news-atom.xml
-                  (or (newsticker--unxml
+                      ;; http://feeds.feedburner.com/ru_nix_blogs
+                      (or (newsticker--unxml
                            (car (xml-node-children
-                                (car (xml-get-children node 'content)))))
+                                 (car (xml-get-children node 'content)))))
+                          (newsticker--unxml
+                           (car (xml-node-children
+                                 (car (xml-get-children node 'summary)))))
                           (car (xml-node-children
                                 (car (xml-get-children node 'summary))))))
                     ;; link-fn