[nongnu] elpa/org-mime eb21c02ba8 109/118: fixed org subtree htmlize

[ELPA Syncer]

branch: elpa/org-mime
commit eb21c02ba8f97fe69c14dc657a7883b982664649
Author: Chen Bin <chenbin.sh@gmail.com>
Commit: Chen Bin <chenbin.sh@gmail.com>

    fixed org subtree htmlize
---
 org-mime.el | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/org-mime.el b/org-mime.el
index d36a4a4f0f..639d6a2ab3 100644
--- a/org-mime.el
+++ b/org-mime.el
@@ -204,8 +204,8 @@ buffer holding the text to be exported.")
   (cond
    (subtreep
     (or org-mime-export-options
-        (if (fboundp 'org-export--get-subtree-options)
-            (org-export--get-subtree-options))))
+        (and (fboundp 'org-export--get-subtree-options)
+             (org-export--get-subtree-options))))
    (t
     (org-mime-get-buffer-export-options))))
 
@@ -231,11 +231,9 @@ buffer holding the text to be exported.")
 (defun org-mime-export-buffer-or-subtree (subtreep)
   "Similar to `org-html-export-as-html' and `org-org-export-as-org'.
 SUBTREEP is t if current node is subtree."
-  (let* (
-         (opts (org-mime-get-export-options subtreep))
+  (let* ((opts (org-mime-get-export-options subtreep))
          (plain (org-mime-export-ascii-maybe (buffer-string) (buffer-string)))
-         (buf (org-export-to-buffer 'html "*Org Mime Export*"
-                nil subtreep nil opts))
+         (buf (org-export-to-buffer 'html "*Org Mime Export*" nil subtreep nil 
t opts))
          (body (prog1
                    (with-current-buffer buf
                      (buffer-string))