diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-04-10 11:04:25 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-04-10 15:15:05 -0600 |
commit | 722dd7eb5c0c70dff034e4d065de70efe340e9d4 (patch) | |
tree | 36f66e617a35c49aeae135bef0902895c8600f4e | |
parent | 59d499ff51b2d0f19add834fe47e9ef42f7a763b (diff) | |
download | org-mode-722dd7eb5c0c70dff034e4d065de70efe340e9d4.tar.gz |
org-mime: cleaned `org-mime-default-header' from text/plain exports
-rw-r--r-- | contrib/lisp/org-mime.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/contrib/lisp/org-mime.el b/contrib/lisp/org-mime.el index ed961c6..034f97a 100644 --- a/contrib/lisp/org-mime.el +++ b/contrib/lisp/org-mime.el @@ -54,7 +54,7 @@ ;;; Code: (defcustom org-mime-default-header - "#+TITLE: NONE\n#+OPTIONS: latex:t\n" + "#+OPTIONS: latex:t\n" "Default header to control html export options, and ensure first line isn't assumed to be a title line." :group 'org-mime @@ -188,11 +188,12 @@ TMP-FILE during export." (insert org-mime-default-header) (insert body) (write-file tmp-file) - ;; convert to fmt -- mimicing `org-run-like-in-org-mode' - (eval - (list 'let org-local-vars - (list (intern (concat "org-export-as-" fmt)) - nil nil nil ''string t)))))) + (substring + (eval ;; convert to fmt -- mimicing `org-run-like-in-org-mode' + (list 'let org-local-vars + (list (intern (concat "org-export-as-" fmt)) + nil nil nil ''string t))) + (if (string= fmt "org") (length org-mime-default-header) 0))))) (defun org-mime-apply-html-hook (html) (when org-mime-html-hook |