[Orgmode] [PATCH] Allow inclusion of author's email in LaTeX export

[Lawrence Mitchell]

* org-latex.el (org-export-latex-make-header): Export email in
author line if `org-export-email-info' is non-nil.

Previously exporting to LaTeX would not include the document author's
email address when org-export-email-info was set.  This patch corrects
this oversight using the \thanks command to add a footnote to the
author line.
---
lisp/org-latex.el |   12 +++++++++---
 1 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/lisp/org-latex.el b/lisp/org-latex.el
index 8a9f9eb..4b36273 100644
--- a/lisp/org-latex.el
+++ b/lisp/org-latex.el
@@ -1276,7 +1276,9 @@ TITLE is the current title from the buffer or region.
 OPT-PLIST is the options plist for current buffer."
   (let ((toc (plist-get opt-plist :table-of-contents))
        (author (org-export-apply-macros-in-string
-                (plist-get opt-plist :author))))
+                (plist-get opt-plist :author)))
+       (email (org-export-apply-macros-in-string
+               (plist-get opt-plist :email))))
     (concat
      (if (plist-get opt-plist :time-stamp-file)
         (format-time-string "%% Created %Y-%m-%d %a %H:%M\n"))
@@ -1300,8 +1302,12 @@ OPT-PLIST is the options plist for current buffer."
       (org-export-latex-fontify-headline title))
      ;; insert author info
      (if (plist-get opt-plist :author-info)
-        (format "\\author{%s}\n"
-                (org-export-latex-fontify-headline (or author user-full-name)))
+        (format "\\author{%s%s}\n"
+                (org-export-latex-fontify-headline (or author user-full-name))
+                (if (and org-export-email-info email
+                         (string-match "\\S-" email))
+                    (format "\\thanks{%s}" email)
+                  ""))
        (format "%%\\author{%s}\n"
               (org-export-latex-fontify-headline (or author user-full-name))))
      ;; insert the date
-- 
1.7.4.rc1.7.g2cf08