diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-04-12 11:21:59 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-04-12 11:21:59 -0600 |
commit | b617a457ae72156ff52324e965a5124d1e816c2c (patch) | |
tree | 3821047518ea4a995dfdf8f1e5f8119870ab11c5 | |
parent | 32340d03899f1daa8b8a63bf2bed2ec0f6de7705 (diff) | |
download | org-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.el | 5 |
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))))) |