From 8041c2f0a5379ccc08d3d3414cba54fb3786a94d Mon Sep 17 00:00:00 2001 From: Magnus Henoch Date: Wed, 15 Apr 2009 11:19:19 +0100 Subject: [PATCH] * org-feed.el (org-feed-parse-rss-feed): Renamed from org-feed-parse-feed. (org-feed-parse-rss-entry): Renamed from org-feed-parse-entry. (org-feed-update): Update calls. --- lisp/org-feed.el | 12 ++++++------ 1 files changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/org-feed.el b/lisp/org-feed.el index fca71f7..3ece0f9 100644 --- a/lisp/org-feed.el +++ b/lisp/org-feed.el @@ -288,7 +288,7 @@ it can be a list structured like an entry in `org-feed-alist'." (error "Cannot get feed %s" name)) (when retrieve-only (throw 'exit feed-buffer)) - (setq entries (org-feed-parse-feed feed-buffer)) + (setq entries (org-feed-parse-rss-feed feed-buffer)) (ignore-errors (kill-buffer feed-buffer)) (save-excursion (save-window-excursion @@ -313,8 +313,8 @@ it can be a list structured like an entry in `org-feed-alist'." (push e changed)))) ;; Parse the relevant entries fully - (setq new (mapcar 'org-feed-parse-entry new) - changed (mapcar 'org-feed-parse-entry changed)) + (setq new (mapcar 'org-feed-parse-rss-entry new) + changed (mapcar 'org-feed-parse-rss-entry changed)) ;; Run the filter (when filter @@ -540,8 +540,8 @@ If that property is already present, nothing changes." ((functionp org-feed-retrieve-method) (funcall org-feed-retrieve-method url)))) -(defun org-feed-parse-feed (buffer) - "Parse BUFFER for RS feed entries. +(defun org-feed-parse-rss-feed (buffer) + "Parse BUFFER for RSS feed entries. Returns a list of entries, with each entry a property list, containing the properties `:guid' and `:item-full-text'." (let (entries beg end item guid entry) @@ -561,7 +561,7 @@ containing the properties `:guid' and `:item-full-text'." (goto-char end)) (nreverse entries)))) -(defun org-feed-parse-entry (entry) +(defun org-feed-parse-rss-entry (entry) "Parse the `:item-full-text' field for xml tags and create new properties." (with-temp-buffer (insert (plist-get entry :item-full-text)) -- 1.6.0.2