From 5504f993f90e5203f8447d2da34400364522e25d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 5 Jul 1997 03:41:35 +0000 Subject: [PATCH] (reporter-compose-outgoing): Use functionp, not fboundp, to test validity of COMPOSE. --- lisp/mail/reporter.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el index 7045e6cb9ea..c041ed620b9 100644 --- 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'" -- 2.39.2