summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2010-04-15 09:40:03 -0600
committerEric Schulte <schulte.eric@gmail.com>2010-04-15 09:40:03 -0600
commit3b5c85fb958a0c912d679a1cb31ade1b8658b7a5 (patch)
treef2dd47127db6772780a4e2e39f25c7952c17201d
parent310210e8549ef4465bdb91c04261711067ef5cd7 (diff)
downloadorg-mode-3b5c85fb958a0c912d679a1cb31ade1b8658b7a5.tar.gz
org-mime: WL is now fully supported -- thanks to Eric S. Fraga
-rw-r--r--contrib/lisp/org-mime.el20
1 files changed, 14 insertions, 6 deletions
diff --git a/contrib/lisp/org-mime.el b/contrib/lisp/org-mime.el
index b4882b0..14a8ce3 100644
--- a/contrib/lisp/org-mime.el
+++ b/contrib/lisp/org-mime.el
@@ -105,9 +105,15 @@
('mml (format
"<#part type=\"%s\" filename=\"%s\" id=\"<%s>\">\n<#/part>\n"
ext path id))
- ('semi (format
- "--[[application/octet-stream; type=%s\nContent-ID: %s; filename=\"%s\"][base64]]"
- ext id path))
+ ('semi (concat
+ (format
+ "-- xx [[%s\nContent-Disposition: inline;\nContent-ID: <%s>][base64]]\n"
+ ext id)
+ (base64-encode-string
+ (with-temp-buffer
+ (set-buffer-multibyte nil)
+ (binary-insert-encoded-file path)
+ (buffer-string)))))
('vm "?")))
(defun org-mime-multipart (plain html)
@@ -117,9 +123,11 @@
('mml (format (concat "<#multipart type=alternative><#part type=text/plain>"
"%s<#part type=text/html>%s<#/multipart>\n")
plain html))
- ('semi (format (concat "--<<alternative>>-{\n--[[text/plain;%s\n--]]\n"
- "--[[text/html;%s\n--]]\n--}-<<alternative>>\n")
- plain html))
+ ('semi (concat
+ "--" "<<alternative>>-{\n"
+ "--" "[[text/plain]]\n" plain
+ "--" "[[text/html]]\n" html
+ "--" "}-<<alternative>>\n"))
('vm "?")))
(defun org-mime-replace-images (str current-file)