From 6875716e76acfbe1084a47e59d18a30a933d92b6 Mon Sep 17 00:00:00 2001 From: David Maus Date: Sat, 19 Jun 2010 19:25:41 +0000 Subject: [PATCH] Unescape rss element content. * org-feed.el (org-feed-parse-rss-entry): Unescape rss element content. --- lisp/org-feed.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-feed.el b/lisp/org-feed.el index c86ca903d..8ff739301 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 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