summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2010-04-10 11:04:25 -0600
committerEric Schulte <schulte.eric@gmail.com>2010-04-10 15:15:05 -0600
commit722dd7eb5c0c70dff034e4d065de70efe340e9d4 (patch)
tree36f66e617a35c49aeae135bef0902895c8600f4e
parent59d499ff51b2d0f19add834fe47e9ef42f7a763b (diff)
downloadorg-mode-722dd7eb5c0c70dff034e4d065de70efe340e9d4.tar.gz
org-mime: cleaned `org-mime-default-header' from text/plain exports
-rw-r--r--contrib/lisp/org-mime.el13
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