summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2014-06-12 14:40:32 -0400
committerBastien Guerry <bzg@altern.org>2014-06-13 12:05:44 +0200
commit3a1e6a3c3aa07a030edcc7a9bb75b4b153c07e59 (patch)
treee37ac9aee081e3c70757d2f491aac01cc6537441
parentfeca87b9ac4610ef2760f0c16bbce7ddfeb5f163 (diff)
downloadorg-mode-3a1e6a3c3aa07a030edcc7a9bb75b4b153c07e59.tar.gz
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.el11
1 files changed, 7 insertions, 4 deletions
diff --git a/contrib/lisp/org-mime.el b/contrib/lisp/org-mime.el
index 5f874d9..44bf91b 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 "?")))