branch: elpa/org-mime
commit cf7dbea171920f7f3a6ceb96f16780ede3cb1d1b
Author: Trevor Murphy <[email protected]>
Commit: Trevor Murphy <[email protected]>
rename cleanup function to match beautify user option
---
org-mime.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/org-mime.el b/org-mime.el
index 5c0580156d..eb35e9abf8 100644
--- a/org-mime.el
+++ b/org-mime.el
@@ -298,7 +298,7 @@ OPTS is export options."
(setq rlt (concat rlt (if is-quoted "</p>\n</blockquote>\n" "</p>\n")))
(list b e rlt )))
-(defun org-mime-cleanup-quoted (html)
+(defun org-mime-beautify-quoted (html)
"Clean up quoted mail in modern UI style.
HTML is the body of the message."
(let* (info)
@@ -333,7 +333,7 @@ If html portion of message includes IMAGES they are wrapped
in multipart/related
(when images "<#multipart type=related>")
"<#part type=text/html>"
(if org-mime-beautify-quoted-mail
- (org-mime-cleanup-quoted html)
+ (org-mime-beautify-quoted html)
html)
images
(when images "<#/multipart>\n")
