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

Use the org-mime-default-header customized variable 

* contrib/lisp/org-mime.el (org-mime-htmlize): Use the
  org-mime-default-header customized variable.
This commit is contained in:
Eric Schulte 2012-12-12 08:00:00 -07:00
parent 2c34715ae6
commit 8dd3fa301a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/lisp/org-mime.el
View File

@ -204,7 +204,8 @@ export that region, otherwise export the entire body."
(html-end (or (and region-p (region-end))
;; TODO: should catch signature...
(point-max)))
(raw-body (buffer-substring html-start html-end))
(raw-body (concat org-mime-default-header
(buffer-substring html-start html-end)))
(tmp-file (make-temp-name (expand-file-name
"mail" temporary-file-directory)))
(body (org-export-string raw-body 'org (file-name-directory tmp-file)))