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.
This commit is contained in:
Matt Lundin 2014-07-23 14:18:06 -05:00 committed by Bastien Guerry
parent 08e7795859
commit 092213b507
1 changed files with 2 additions and 3 deletions

View File

@ -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)