diff options
author | David Maus <dmaus@ictsoc.de> | 2010-06-19 19:25:41 +0000 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-07-01 15:09:43 +0200 |
commit | 6875716e76acfbe1084a47e59d18a30a933d92b6 (patch) | |
tree | 0e259651707564150c70feb5ae7a4ea55283ed25 | |
parent | 516640aff96b627d8ad412f6cdb436535600aff0 (diff) | |
download | org-mode-6875716e76acfbe1084a47e59d18a30a933d92b6.tar.gz |
Unescape rss element content.
* org-feed.el (org-feed-parse-rss-entry): Unescape rss element
content.
-rw-r--r-- | lisp/org-feed.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-feed.el b/lisp/org-feed.el index c86ca90..8ff7393 100644 --- a/lisp/org-feed.el +++ b/lisp/org-feed.el @@ -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 |