* 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 a3bbf4c025c16aefb90e9c3bb6746b8c1e95d59b..7c290486f260bf1c144f4eb9b5506ea0785d53d6 100644 (file)
--- 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