branch: elpa/org-mime
commit d52a7b52b652bb87a82be02f66ba14d54dee0cb5
Author: Chen Bin <[email protected]>
Commit: Chen Bin <[email protected]>
fixed revert plain text email bug
---
org-mime.el | 4 +++-
test/org-mime-tests.el | 18 ++++++++++++++++++
2 files changed, 21 insertions(+), 1 deletion(-)
diff --git a/org-mime.el b/org-mime.el
index 8edc2e67bd..18ee99f33c 100644
--- a/org-mime.el
+++ b/org-mime.el
@@ -850,7 +850,7 @@ Following headline properties can determine the mail
headers.
(defun org-mime-revert-to-plain-text-mail ()
"Revert mail body to plain text."
(interactive)
- (let* ((txt-sep "<#part type=text/plain")
+ (let* ((txt-sep "<#part type=text/plain>")
(html-sep "<#part type=text/html>")
mail-beg
mail-text
@@ -868,6 +868,8 @@ Following headline properties can determine the mail
headers.
(- txt-end (length
html-sep))))
;; delete html mail
(delete-region mail-beg (point-max))
+ (when org-mime-debug
+ (message "mail-beg=%s mail-text=%s" mail-beg mail-text))
;; restore text mail
(insert mail-text))
(t
diff --git a/test/org-mime-tests.el b/test/org-mime-tests.el
index ff99255165..6a17aeac84 100644
--- a/test/org-mime-tests.el
+++ b/test/org-mime-tests.el
@@ -317,4 +317,22 @@
(should (string= (nth 0 (plist-get tags :secure-tags))
"<#secure method=pgpmime mode=sign>"))))
+(ert-deftest test-org-mime-revert-to-plain-text ()
+ (with-temp-buffer
+ (insert
+ "--text follows this line--"
+ "<#multipart type=alternative>\n"
+ "<#part type=text/plain>\n"
+ "test\n"
+ "hello\n"
+ "<#part type=text/html>\n"
+ "<p>\n"
+ "test\n"
+ "hello\n"
+ "</p>\n"
+ "<#/multipart>\n")
+ (message-mode)
+ (org-mime-revert-to-plain-text-mail)
+ (should (string= (string-trim (buffer-string))
+ "--text follows this line--\ntest\nhello"))))
(ert-run-tests-batch-and-exit)
