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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5392e197d9f690947c9aacab077fecaf8544133d..102ef01d7721e0fe8b85f3be11ae5be3d96fac23 100644 (file)
--- 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 aa98da879047115ca1a156c693e177e09314932b..853321cba6f1b82410b4777d7736ea8faafb27e2 100644 (file)
--- 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)