tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Unescape rss element content.

Browse source 
* org-feed.el (org-feed-parse-rss-entry): Unescape rss element
content.
This commit is contained in:
David Maus 2010-06-19 19:25:41 +00:00 committed by Carsten Dominik
parent 516640aff9
commit 6875716e76
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/org-feed.el
View file

@ -605,7 +605,7 @@ containing the properties `:guid' and `:item-full-text'."
nil t)
(setq entry (plist-put entry
(intern (concat ":" (match-string 1)))
(match-string 2))))
(org-feed-unescape (match-string 2)))))
(goto-char (point-min))
(unless (re-search-forward "isPermaLink[ \t]*=[ \t]*\"false\"" nil t)
(setq entry (plist-put entry :guid-permalink t))))
@ -638,8 +638,8 @@ formatted as a string, not the original XML data."
'href)))
;; Add <title/> as :title.
(setq entry (plist-put entry :title
(car (xml-node-children
(car (xml-get-children xml 'title))))))
(org-feed-unescape (car (xml-node-children
(car (xml-get-children xml 'title)))))))
(let* ((content (car (xml-get-children xml 'content)))
(type (xml-get-attribute-or-nil content 'type)))
(when content