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

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

[nongnu] elpa/org-mime c6733aed33 1/2: clean up attachments related code


From: ELPA Syncer
Subject: [nongnu] elpa/org-mime c6733aed33 1/2: clean up attachments related code
Date: Thu, 21 Jul 2022 22:58:44 -0400 (EDT)

branch: elpa/org-mime
commit c6733aed333e3e6ec6600253fbaa573551391fad
Author: Chen Bin <chenbin.sh@gmail.com>
Commit: Chen Bin <chenbin.sh@gmail.com>

    clean up attachments related code
---
 org-mime.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/org-mime.el b/org-mime.el
index a73baadbfd..54f40e3d53 100644
--- a/org-mime.el
+++ b/org-mime.el
@@ -486,7 +486,10 @@ CURRENT-FILE is used to calculate full path of images."
       (mapc (lambda (f)
               (when org-mime-debug (message "attaching: %s" f))
               (mml-attach-file f))
-            files))))
+            files))
+
+    ;; spacer
+    (insert "\n\n")))
 
 (defun org-mime-mail-body-begin ()
   "Get begin of mail body."
@@ -578,14 +581,16 @@ If called with an active region only export that region, 
otherwise entire body."
     ;; restore secure tags
     (when secure-tags
       (insert (mapconcat #'identity secure-tags "\n"))
-      (insert "\n"))
+      ;; spacer
+      (insert "\n\n"))
 
     ;; insert converted html
     (org-mime-insert-html-content plain file html)
 
-    ;; restore part tags
+    ;; restore part tags (attachments)
     (when part-tags
-      (insert (mapconcat #'identity part-tags "\n")))))
+      (insert (mapconcat #'identity part-tags "\n"))
+      (insert "\n\n"))))
 
 (defun org-mime--get-buffer-title ()
   "Get buffer title."



reply via email to

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