summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2010-04-12 11:21:59 -0600
committerEric Schulte <schulte.eric@gmail.com>2010-04-12 11:21:59 -0600
commitb617a457ae72156ff52324e965a5124d1e816c2c (patch)
tree3821047518ea4a995dfdf8f1e5f8119870ab11c5
parent32340d03899f1daa8b8a63bf2bed2ec0f6de7705 (diff)
downloadorg-mode-b617a457ae72156ff52324e965a5124d1e816c2c.tar.gz
org-mime: change `org-mime-org-export' to more closely mimic `org-run-like-in-org-mode'
-rw-r--r--contrib/lisp/org-mime.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/contrib/lisp/org-mime.el b/contrib/lisp/org-mime.el
index 034f97a..7891c63 100644
--- a/contrib/lisp/org-mime.el
+++ b/contrib/lisp/org-mime.el
@@ -188,9 +188,12 @@ TMP-FILE during export."
(insert org-mime-default-header)
(insert body)
(write-file tmp-file)
+ (org-load-modules-maybe)
+ (unless org-local-vars
+ (setq org-local-vars (org-get-local-variables)))
(substring
(eval ;; convert to fmt -- mimicing `org-run-like-in-org-mode'
- (list 'let org-local-vars
+ (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)))))