branch: elpa/org-mime
commit 9571c148eed5e86fdd54eb6bf2814947c2c745a6
Merge: b7549c93fa 715c8981b1
Author: Chen Bin <chb...@hotmail.com>
Commit: GitHub <nore...@github.com>
Merge pull request #95 from DevelopmentCool2449/patch-1
Allow customize quoted mail style
---
org-mime.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/org-mime.el b/org-mime.el
index d9d828b305..34641d570e 100644
--- a/org-mime.el
+++ b/org-mime.el
@@ -140,6 +140,11 @@
:group 'org-mime
:type 'boolean)
+(defcustom org-mime-beautify-quoted-mail-style "margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex"
+ "Style for beautifying quoted mail."
+ :type 'string
+ :group 'org-mime)
+
(defcustom org-mime-use-property-inheritance nil
"Non-nil means al MAIL_ properties apply also for sub-levels."
:group 'org-mime
@@ -313,7 +318,9 @@ HTML is the body of the message."
(let ((quote-depth 0)
(line-depth 0)
(in-quote-p nil)
- (quote-opening "<blockquote class=\"gmail_quote\" style=\"margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex\">\n\n<div>")
+ (quote-opening (concat "<blockquote class=\"gmail_quote\" style=\""
+ org-mime-beautify-quoted-mail-style
+ "\">\n\n<div>"))
(quote-closing "\n</div></blockquote>\n"))
(with-temp-buffer
;; clean title of quoted
