aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2011-05-31 20:50:20 -0700
committerGlenn Morris2011-05-31 20:50:20 -0700
commit67a0931d39202b9e7169c88d7fe47aa345fbfcae (patch)
treed7b54fd985292f181e1b9372d751ef6f764763b5
parentd1a5d56a0c3ecdc17af654dd156b22b7fed71ffc (diff)
downloademacs-67a0931d39202b9e7169c88d7fe47aa345fbfcae.tar.gz
emacs-67a0931d39202b9e7169c88d7fe47aa345fbfcae.zip
Use derived-mode-p in previous change.
-rw-r--r--lisp/mail/emacsbug.el2
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")
345 (error "No text entered in bug report")) 345 (error "No text entered in bug report"))
346 (or report-emacs-bug-no-confirmation 346 (or report-emacs-bug-no-confirmation
347 ;; mailclient.el does not handle From (at present). 347 ;; mailclient.el does not handle From (at present).
348 (if (eq major-mode 'message-mode) 348 (if (derived-mode-p 'message-mode)
349 (eq message-send-mail-function 'message-send-mail-with-mailclient) 349 (eq message-send-mail-function 'message-send-mail-with-mailclient)
350 (eq send-mail-function 'mailclient-send-it)) 350 (eq send-mail-function 'mailclient-send-it))
351 ;; Not narrowing to the headers, but that's OK. 351 ;; Not narrowing to the headers, but that's OK.