diff --git a/contrib/lisp/ox-rss.el b/contrib/lisp/ox-rss.el index 8b9d31972..df22b1ab4 100644 --- a/contrib/lisp/ox-rss.el +++ b/contrib/lisp/ox-rss.el @@ -229,7 +229,8 @@ communication channel." (if (> (org-export-get-relative-level headline info) 1) (org-export-data-with-backend headline 'html info) (unless (org-element-property :footnote-section-p headline) - (let* ((author (and (plist-get info :with-author) + (let* ((email (org-export-data (plist-get info :email) info)) + (author (and (plist-get info :with-author) (let ((auth (plist-get info :author))) (and auth (org-export-data auth info))))) (htmlext (plist-get info :html-extension)) @@ -273,13 +274,13 @@ communication channel." "\n" "%s\n" "%s\n" - "%s\n" + "%s (%s)\n" "%s\n" "%s\n" (org-rss-build-categories headline info) "\n" "\n" "\n") - title publink author guid pubdate contents)))))) + title publink email author guid pubdate contents)))))) (defun org-rss-build-categories (headline info) "Build categories for the RSS item."