diff -u /home/oub/.emacs.d/elpa/org-plus-contrib-20130703/org-mime-org.el /home/oub/.emacs.d/elpa/org-plus-contrib-20130703/org-mime.el --- /home/oub/.emacs.d/elpa/org-plus-contrib-20130703/org-mime-org.el 2015-03-13 20:14:17.000000000 +0100 +++ /home/oub/.emacs.d/elpa/org-plus-contrib-20130703/org-mime.el 2015-03-29 18:55:08.733572911 +0200 @@ -147,6 +147,12 @@ (buffer-string))))) ('vm "?"))) +(defvar org-mime-bidi-support nil + "*Variable which controls the support for RTL BIDI. Default is + nil. It is recommendable to change this variable, once you + change, via `set-input-method' to a BIDI language.") + + (defun org-mime-multipart (plain html &optional images) "Markup a multipart/alternative with text/plain and text/html alternatives. If the html portion of the message includes images wrap the html @@ -155,10 +161,12 @@ ('mml (concat "<#multipart type=alternative><#part type=text/plain>" plain (when images "<#multipart type=related>") - "<#part type=text/html>" + (if org-mime-bidi-support ;add BIDI support + "<#part type=text/html>\n" + "<#part type=text/html>") html images - (when images "<#/multipart>\n") + (when images "\n<#/multipart>\n") "<#/multipart>\n")) ('semi (concat "--" "<>-{\n" Diff finished. Sun Mar 29 18:55:27 2015