[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."