Fix up the emacsbug query-once logic from the previous patch

* mail/emacsbug.el (report-emacs-bug-hook): Fix up thinko in
previous patch: Check `message-send-mail-function', and not the
default function.

Fixes: debbugs:10897

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5392e197d9f..102ef01d772 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-03-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+        * mail/emacsbug.el (report-emacs-bug-hook): Fix up thinko in
+        previous patch: Check `message-send-mail-function', and not the
+        default function (bug#10897).
+
 2012-03-04  Michael Albinus  <michael.albinus@gmx.de>
 
         * notifications.el (notifications-unique-name): New defvar.
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index aa98da87904..853321cba6f 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -395,8 +395,7 @@ and send the mail again%s."
     ;; questions about From header validity if the user is going to
     ;; use mailclient, anyway.
     (when (or (and (derived-mode-p 'message-mode)
-                   (eq (message-default-send-mail-function)
-                       'sendmail-query-once))
+                   (eq message-send-mail-function 'sendmail-query-once))
               (and (not (derived-mode-p 'message-mode))
                    (eq send-mail-function 'sendmail-query-once)))
       (sendmail-query-user-about-smtp)