summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatt Lundin <mdl@imapmail.org>2014-07-23 14:18:06 -0500
committerBastien Guerry <bzg@altern.org>2014-07-26 20:07:16 +0200
commit092213b507cd5619c839df372ae93fbe3c7b57ab (patch)
tree8a225ee14cf803881a09c4f26348fa0cbe1aa482
parent08e77958598edc1fa83c452399587e74ecd4a03d (diff)
downloadorg-mode-092213b507cd5619c839df372ae93fbe3c7b57ab.tar.gz
Fix ID generation in org-rss-publish-to-rss
* contrib/lisp/ox-rss.el (org-rss-publish-to-rss): Fix a bug that causes ID properties to be generated in org buffer emacs is currently visiting rather than the file containing the feed.
-rw-r--r--contrib/lisp/ox-rss.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/contrib/lisp/ox-rss.el b/contrib/lisp/ox-rss.el
index c69a37b..5cae288 100644
--- a/contrib/lisp/ox-rss.el
+++ b/contrib/lisp/ox-rss.el
@@ -204,11 +204,10 @@ publishing directory.
Return output file name."
(let ((bf (get-file-buffer filename)))
(if bf
- (progn
- (org-icalendar-create-uid filename 'warn-user)
(with-current-buffer bf
+ (org-icalendar-create-uid filename 'warn-user)
(org-rss-add-pubdate-property)
- (write-file filename)))
+ (write-file filename))
(find-file filename)
(org-icalendar-create-uid filename 'warn-user)
(org-rss-add-pubdate-property)