(reporter-compose-outgoing): Use functionp,

not fboundp, to test validity of COMPOSE.

diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el
index 7045e6cb9eac82fdf0eed0d52ab50fa1a5351071..c041ed620b92c2d01dafee78a210b6d7fbb18cc3 100644 (file)
--- a/lisp/mail/reporter.el
+++ b/lisp/mail/reporter.el
@@ -311,11 +311,11 @@ composed.")
         (compose (get mail-user-agent 'composefunc)))
     ;; Sanity check.  If this fails then we'll try to use the SENDMAIL
     ;; protocol, otherwise we must signal an error.
-    (if (not (and compose (fboundp compose)))
+    (if (not (and compose (functionp compose)))
        (progn
          (setq agent 'sendmail-user-agent
                compose (get agent 'composefunc))
-         (if (not (and compose (fboundp compose)))
+         (if (not (and compose (functionp compose)))
              (error "Could not find a valid `mail-user-agent'")
            (ding)
            (message "`%s' is an invalid `mail-user-agent'; using `sendmail-user-agent'"