Browse Source

contrib/lisp/ox-rss.el (org-rss-publish-to-rss): Create id when publishing

* contrib/lisp/ox-rss.el (org-rss-publish-to-rss): Create id
when publishing.
Bastien Guerry 11 years ago
parent
commit
136c2bc2cb
1 changed files with 6 additions and 3 deletions
  1. 6 3
      contrib/lisp/ox-rss.el

+ 6 - 3
contrib/lisp/ox-rss.el

@@ -204,10 +204,13 @@ publishing directory.
 Return output file name."
   (let ((bf (get-file-buffer filename)))
     (if bf
-	(with-current-buffer bf
-	  (org-rss-add-pubdate-property)
-	  (write-file filename))
+	(progn
+	  (org-icalendar-create-uid filename 'warn-user)
+	  (with-current-buffer bf
+	    (org-rss-add-pubdate-property)
+	    (write-file filename)))
       (find-file filename)
+      (org-icalendar-create-uid filename 'warn-user)
       (org-rss-add-pubdate-property)
       (write-file filename) (kill-buffer)))
   (org-publish-org-to