[O] [BUG] [PATCH] ox-rss: Put email address in <author> element

[Arun Isaac]

The RSS specification requires the email address and the name of the
author to be provided in the <author> element in the format
"address@hidden (Name)".

http://www.rssboard.org/rss-specification#ltauthorgtSubelementOfLtitemgt

Currently, only the author's name is provided. This is invalid
RSS. Please find attached a patch fixing this.

Regards,
Arun Isaac.

From f5e2bf625cc14efd35dcd77340b4ab380b2f3dc8 Mon Sep 17 00:00:00 2001
From: Arun Isaac <address@hidden>
Date: Tue, 14 Jun 2016 01:18:55 +0530
Subject: [PATCH] ox-rss: Put email address in <author> element

* contrib/lisp/ox-rss.el (org-rss-headline): Put author's email
  address in <author> element.

The RSS specification requires the email address and the name of the
author to be provided in the <author> element in the format
"address@hidden (Name)". Currently, only the author's name is
provided. This is invalid RSS.
---
 contrib/lisp/ox-rss.el | 7 ++++---
 1 file 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."
-- 
2.8.3

signature.asc
Description: PGP signature