diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/newst-backend.el | 14 |
2 files changed, 14 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d412404efbe..a29cad13cc2 100644 --- 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 41f8b8440bd..31ebc7ac583 100644 --- 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 |