[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-mime 5c19b458f8 2/2: special edit buffer should not in
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/org-mime 5c19b458f8 2/2: special edit buffer should not include signature |
Date: |
Thu, 21 Jul 2022 22:58:44 -0400 (EDT) |
branch: elpa/org-mime
commit 5c19b458f8dbd61f8a40c8b94ba843833ba90a77
Author: Chen Bin <chenbin.sh@gmail.com>
Commit: Chen Bin <chenbin.sh@gmail.com>
special edit buffer should not include signature
---
org-mime.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/org-mime.el b/org-mime.el
index 54f40e3d53..ce46740dcc 100644
--- a/org-mime.el
+++ b/org-mime.el
@@ -170,7 +170,8 @@ Default (nil) selects the original org file."
:group 'org-mime
:type 'sexp)
-(defcustom org-mime-mail-signature-separator "^--\s?$"
+(defcustom org-mime-mail-signature-separator
+ (or message-signature-separator "^--\s?$")
"Default mail signature separator."
:group 'org-mime
:type 'string)
@@ -839,7 +840,7 @@ Following headline properties can determine the mail
headers.
(t
(setq org-mime--saved-temp-window-config (current-window-configuration))
(let* ((beg (copy-marker (org-mime-mail-body-begin)))
- (end (copy-marker (point-max)))
+ (end (copy-marker (or (org-mime-mail-signature-begin) (point-max))))
(bufname "OrgMimeMailBody")
(buffer (generate-new-buffer bufname))
(overlay (org-mime-src--make-source-overlay beg end))