diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-14 13:57:23 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-14 13:57:23 +0200 |
| commit | 60c11dcb0c8725eaf8213162029e83c578d24a29 (patch) | |
| tree | 14c79e9418c33794a5b77c12d0e83962f556aa17 | |
| parent | 65e4370d4606ac4d15bffddb97d089f06009c7ab (diff) | |
| parent | f364d55e2e82361486ad543de16a298687896de9 (diff) | |
| download | org-mode-60c11dcb0c8725eaf8213162029e83c578d24a29.tar.gz | |
Merge branch 'maint'
| -rw-r--r-- | contrib/lisp/ox-rss.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/contrib/lisp/ox-rss.el b/contrib/lisp/ox-rss.el index 44ee8db..a3ba274 100644 --- a/contrib/lisp/ox-rss.el +++ b/contrib/lisp/ox-rss.el @@ -231,7 +231,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)) @@ -275,13 +276,13 @@ communication channel." "<item>\n" "<title>%s</title>\n" "<link>%s</link>\n" - "<author>%s</author>\n" + "<author>%s (%s)</author>\n" "<guid isPermaLink=\"false\">%s</guid>\n" "<pubDate>%s</pubDate>\n" (org-rss-build-categories headline info) "\n" "<description><![CDATA[%s]]></description>\n" "</item>\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." |