1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index b1b3c443a09..6b062f2298f 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -345,7 +345,7 @@ usually do not have translators to read other languages for them.\n\n")
          (error "No text entered in bug report"))
     (or report-emacs-bug-no-confirmation
         ;; mailclient.el does not handle From (at present).
-        (if (eq major-mode 'message-mode)
+        (if (derived-mode-p 'message-mode)
             (eq message-send-mail-function 'message-send-mail-with-mailclient)
           (eq send-mail-function 'mailclient-send-it))
         ;; Not narrowing to the headers, but that's OK.