emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/org-mime 0caaf273e7 011/118: Use a plain ASCII export for


From: ELPA Syncer
Subject: [nongnu] elpa/org-mime 0caaf273e7 011/118: Use a plain ASCII export for the text part
Date: Wed, 5 Jan 2022 07:58:42 -0500 (EST)

branch: elpa/org-mime
commit 0caaf273e7ab7624d7b56ff8abad1cb5699b9e1c
Author: Anthony Cowley <acowley@gmail.com>
Commit: Anthony Cowley <acowley@gmail.com>

    Use a plain ASCII export for the text part
    
    This removes some amount of Org noise (e.g. PROPERTIES drawers) in the 
plain text portion of the email.
---
 org-mime.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/org-mime.el b/org-mime.el
index 1a15d3bf15..da37a946fe 100644
--- a/org-mime.el
+++ b/org-mime.el
@@ -267,6 +267,7 @@ export that region, otherwise export the entire body."
                           (buffer-string))
                       body))))
       (let* ((org-link-file-path-type 'absolute)
+             (plain (org-export-string-as (org-babel-trim body) 'ascii t opts))
              ;; we probably don't want to export a huge style file
              (org-export-htmlize-output-type 'inline-css)
              (html-and-images
@@ -274,7 +275,7 @@ export that region, otherwise export the entire body."
                (org-mime--export-string (bhook body 'html)) file))
              (images (cdr html-and-images))
              (html (org-mime-apply-html-hook (car html-and-images))))
-        (insert (org-mime-multipart (org-babel-trim body) html)
+        (insert (org-mime-multipart plain html)
                 (mapconcat 'identity images "\n"))))))
 
 (defun org-mime-org-buffer-htmlize ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]