From 551d1a2cd73bb3df2cad0f1f5b5d1628bb138483 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Sat, 26 Oct 2024 09:39:00 +0200 Subject: [PATCH] ; Insert "Stealing lock" at the beginning of a message * lisp/vc/vc.el (vc-steal-lock): Use 'mail-text' instead of jumping to 'point-max', to avoid inserting the message after signatures. (Bug#74027) --- lisp/vc/vc.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 194b181f3e9..dd6079d22ab 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -1738,6 +1738,8 @@ Type \\[vc-next-action] to check in changes.") (format "%d files" (length files)) "this file")))) +(declare-function mail-text "sendmail" ()) +(declare-function message-goto-body "message" (&optional interactive)) (defun vc-steal-lock (file rev owner) "Steal the lock on FILE." (let (file-description) @@ -1758,7 +1760,10 @@ Type \\[vc-next-action] to check in changes.") ;; goes wrong, we don't want to send any mail. (compose-mail owner (format "Stolen lock on %s" file-description)) (setq default-directory (expand-file-name "~/")) - (goto-char (point-max)) + (cond + ((eq mail-user-agent 'sendmail-user-agent) + (mail-text)) + ((message-goto-body))) (insert (format "I stole the lock on %s, " file-description) (current-time-string)