diff options
| author | Ulf Jasper <ulf.jasper@web.de> | 2014-11-27 19:32:08 +0100 |
|---|---|---|
| committer | Ulf Jasper <ulf.jasper@web.de> | 2014-11-27 19:32:08 +0100 |
| commit | cceb7a8921e34d4b4942456b59d342a7566fda59 (patch) | |
| tree | b7a3d92cacbd017f55d9e352ed675d48eb64b19b /lisp | |
| parent | 07efa3f0ba196c1eea130032c765d5d1a62fa627 (diff) | |
| download | emacs-cceb7a8921e34d4b4942456b59d342a7566fda59.tar.gz | |
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.
Diffstat (limited to 'lisp')
| -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 |