From ea5e9b6b3b63d391fc793f257c77c373bfd8a4f6 Mon Sep 17 00:00:00 2001 From: Jon Miller Date: Thu, 2 Oct 2014 18:40:33 -0700 Subject: [PATCH] Updated html export to org v8 standards Replaced use of org-export-string with org-export-string-as to match updated org coding standards. This specifically addresses issue #391 --- mu4e/org-mu4e.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/mu4e/org-mu4e.el b/mu4e/org-mu4e.el index 4253eb34..6424f68a 100644 --- a/mu4e/org-mu4e.el +++ b/mu4e/org-mu4e.el @@ -151,8 +151,8 @@ and images in a multipart/related part." (defun org~mu4e-mime-convert-to-html () "Convert the current body to html." - (unless (fboundp 'org-export-string) - (mu4e-error "require function 'org-export-string not found.")) + (unless (fboundp 'org-export-string-as) + (mu4e-error "require function 'org-export-string-as not found.")) (unless (executable-find "dvipng") (mu4e-error "Required program dvipng not found")) (let* ((begin @@ -163,8 +163,7 @@ and images in a multipart/related part." (raw-body (buffer-substring begin 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))) + (body (org-export-string-as raw-body 'html t)) ;; because we probably don't want to skip part of our mail (org-export-skip-text-before-1st-heading nil) ;; because we probably don't want to export a huge style file @@ -176,8 +175,7 @@ and images in a multipart/related part." ;; to hold attachments for inline html images (html-and-images (org~mu4e-mime-replace-images - (org-export-string raw-body 'html - (file-name-directory tmp-file)) + (org-export-string-as raw-body 'html t) tmp-file)) (html-images (cdr html-and-images)) (html (car html-and-images)))