Hello
Attached you find a very small patch which adds BIDI support to org-mime.el
basically it adds
"
\n
"
instead of simply
"")
To the htmlized message.
A new variable is introduced, namely:
org-mime-bidi-support which is per default set to nil.
I turn it on when switching to a BIDI language, as in the following function.
(defun my-turn-bidi-on ()
"Just start with to R2L and turn the hebrew (qwerty) keyboard on"
(interactive)
(setq bidi-paragraph-direction 'right-to-left)
(set-face-font 'default "-etl-*-*-*-*-*-*-240-*-*-*-*-ISO8859-8")
(setq org-mime-bidi-support t)
(set-input-method "hebrew-phonetic-qwerty" t)
(message "R2L on and the hebrew qwerty keyboard!"))
On off when switching back.
Regards
Uwe Brauer
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<html style=\"direction: rtl\;\">"
+ "<#part type=text/html>")
html
images
- (when images "<#/multipart>\n")
+ (when images "</html>\n<#/multipart>\n")
"<#/multipart>\n"))
('semi (concat
"--" "<<alternative>>-{\n"
Diff finished. Sun Mar 29 18:55:27 2015
