diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2014-06-12 14:40:32 -0400 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-06-13 12:05:44 +0200 |
commit | 3a1e6a3c3aa07a030edcc7a9bb75b4b153c07e59 (patch) | |
tree | e37ac9aee081e3c70757d2f491aac01cc6537441 | |
parent | feca87b9ac4610ef2760f0c16bbce7ddfeb5f163 (diff) |
fix semi-backend bug in org-mimerelease_8.2.7
* contrib/lisp/org-mime.el (org-mime-multipart): Fix bug in use of the
semi org-mime-library when converting emails to HTML.
-rw-r--r-- | contrib/lisp/org-mime.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/contrib/lisp/org-mime.el b/contrib/lisp/org-mime.el index 5f874d932..44bf91ba0 100644 --- a/contrib/lisp/org-mime.el +++ b/contrib/lisp/org-mime.el @@ -163,10 +163,13 @@ and images in a multipart/related part." ('semi (concat "--" "<<alternative>>-{\n" "--" "[[text/plain]]\n" plain - (when images (concat "--" "<<alternative>>-{\n")) - "--" "[[text/html]]\n" html - images - (when images (concat "--" "}-<<alternative>>\n")) + (if (and images (> (length images) 0)) + (concat "--" "<<related>>-{\n" + "--" "[[text/html]]\n" html + images + "--" "}-<<related>>\n") + (concat "--" "[[text/html]]\n" html + images)) "--" "}-<<alternative>>\n")) ('vm "?"))) |