mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

Use the org-mime-default-header customized variable

Browse Source 
* 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)))