tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-mime: change org-mime-org-export' to more closely mimic org-run-like-in-org-mode'

Browse source
This commit is contained in:
Eric Schulte 2010-04-12 11:21:59 -06:00
parent 32340d0389
commit b617a457ae
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
contrib/lisp/org-mime.el
View file

@ -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)))))