From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: [PATCH 4/4] Unescape rss element content. Date: Sat, 19 Jun 2010 16:25:41 +0200 Message-ID: <1276957541-29908-5-git-send-email-dmaus@ictsoc.de> References: <87wrtvdzv2.fsf@gmail.com> Return-path: Received: from [140.186.70.92] (port=49754 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OPz16-0005Ki-RK for emacs-orgmode@gnu.org; Sat, 19 Jun 2010 10:27:29 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OPz15-0003RK-Nd for emacs-orgmode@gnu.org; Sat, 19 Jun 2010 10:27:28 -0400 Received: from mysql1.xlhost.de ([213.202.242.106]:58402) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OPz15-0003RB-G8 for emacs-orgmode@gnu.org; Sat, 19 Jun 2010 10:27:27 -0400 In-Reply-To: <87wrtvdzv2.fsf@gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * org-feed.el (org-feed-parse-rss-entry): Unescape rss element content. --- 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 2621008..e7fd0f2 100644 --- a/lisp/org-feed.el +++ b/lisp/org-feed.el @@ -617,7 +617,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)))) @@ -650,8 +650,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 -- 1.7.1