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

[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))



reply via email to

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