From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 25 Mar 2025 18:48:06 +0000 (+0100)
Subject: * test/lisp/gnus/message-tests.el (message-default-buffer-type): New test.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e23b215ae19b0400e0d0f1c7ef1d2a9622275e2c;p=emacs.git

* test/lisp/gnus/message-tests.el (message-default-buffer-type): New test.

(cherry picked from commit 56248fad53cb1476b9f460044c0c73f986a0bbac)
---

diff --git a/test/lisp/gnus/message-tests.el b/test/lisp/gnus/message-tests.el
index a3bbf4c025c..7c290486f26 100644
--- a/test/lisp/gnus/message-tests.el
+++ b/test/lisp/gnus/message-tests.el
@@ -179,6 +179,31 @@ Hello.
       ;; (should-error (re-search-forward "Cc:"))
       )))
 
+(ert-deftest message-default-buffer-type ()
+  (let ((buf (get-buffer-create (md5 (current-time-string)) 'inhibit)))
+    (unwind-protect
+        (ert-with-test-buffer (:name "message")
+          (insert "From: dang@gnus.org
+To: user1
+--text follows this line--
+")
+          ;; Any mode.
+          (save-excursion
+            (ert-simulate-keys (concat (buffer-name buf) "\r\r\r\r")
+              (call-interactively 'mml-attach-buffer)))
+          (save-excursion
+            (should (re-search-forward "type=\"text/plain\"" nil 'noerror)))
+          ;; Diff mode.
+          (with-current-buffer buf (diff-mode))
+          (save-excursion
+            (ert-simulate-keys (concat (buffer-name buf) "\r\r\r\r")
+              (call-interactively 'mml-attach-buffer)))
+          (save-excursion
+            (should (re-search-forward "type=\"text/x-patch\"" nil 'noerror))))
+      ;; Cleanup.
+      (kill-buffer buf)
+      (ert-kill-all-test-buffers))))
+
 (provide 'message-mode-tests)
 
 ;;; message-tests.el ends here