From da0121a996a98760103f9e11e62bc37ce3cdf9fe Mon Sep 17 00:00:00 2001 From: Michael Brand Date: Tue, 18 Feb 2014 20:33:34 +0100 Subject: [PATCH] org-feed.el: Allow current buffer to be indirect * lisp/org-feed.el (org-feed-alist): Allow current buffer to be an indirect buffer. --- lisp/org-feed.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/org-feed.el b/lisp/org-feed.el index 7df762acb..71a424f56 100644 --- a/lisp/org-feed.el +++ b/lisp/org-feed.el @@ -117,8 +117,8 @@ to create inbox items in Org. Each entry is a list with the following items: name a custom name for this feed URL the Feed URL file the target Org file where entries should be listed, when - nil the target becomes the current buffer each time the - feed update is invoked + nil the target becomes the current buffer (may be an + indirect buffer) each time the feed update is invoked headline the headline under which entries should be listed Additional arguments can be given using keyword-value pairs. Many of these @@ -298,7 +298,8 @@ it can be a list structured like an entry in `org-feed-alist'." (catch 'exit (let ((name (car feed)) (url (nth 1 feed)) - (file (or (nth 2 feed) (buffer-file-name (current-buffer)))) + (file (or (nth 2 feed) (buffer-file-name (or (buffer-base-buffer) + (current-buffer))))) (headline (nth 3 feed)) (filter (nth 1 (memq :filter feed))) (formatter (nth 1 (memq :formatter feed)))