From: Michael J Gruber <git@grubix.eu>
Date: Mon, 17 Jun 2024 19:28:25 +0000 (+0200)
Subject: Replace `delete-line` with its definition
X-Git-Tag: archive/debian/0.39_rc0-1~34
X-Git-Url: https://git.cworth.org/git?a=commitdiff_plain;h=6b9fccb2e241156ec3f3fcfa334c73df3cb1fb1e;p=notmuch

Replace `delete-line` with its definition

37c022ae ("Use `without-restriction` in `with-temporary-notmuch-message-buffer`", 2024-03-14)
introduced `delete-line` in a test, but this is Emacs 29 and above only.
Replace it with its (almost) definition.
---

diff --git a/test/T630-emacs-draft.sh b/test/T630-emacs-draft.sh
index 1fad58a8..7d0da21a 100755
--- a/test/T630-emacs-draft.sh
+++ b/test/T630-emacs-draft.sh
@@ -76,7 +76,7 @@ add_email_corpus attachment
 test_begin_subtest "Saving a draft keeps hidden headers"
 test_emacs '(notmuch-mua-new-reply "id:874llc2bkp.fsf@curie.anarc.at")
             (message-goto-subject)
-            (delete-line)
+            (delete-region (line-beginning-position) (line-beginning-position 2))
             (insert "Subject: draft-test-reply\n")
 	    (test-output "DRAFT")
 	    (notmuch-draft-postpone)