diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-04-15 09:40:03 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-04-15 09:40:03 -0600 |
commit | 3b5c85fb958a0c912d679a1cb31ade1b8658b7a5 (patch) | |
tree | f2dd47127db6772780a4e2e39f25c7952c17201d | |
parent | 310210e8549ef4465bdb91c04261711067ef5cd7 (diff) | |
download | org-mode-3b5c85fb958a0c912d679a1cb31ade1b8658b7a5.tar.gz |
org-mime: WL is now fully supported -- thanks to Eric S. Fraga
-rw-r--r-- | contrib/lisp/org-mime.el | 20 |
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) |