Mercurial > emacs

changeset 18628:61f38e629f6b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(reporter-compose-outgoing): Use functionp, not fboundp, to test validity of COMPOSE.
author Richard M. Stallman <rms@gnu.org>
date Sat, 05 Jul 1997 03:41:35 +0000
parents c372b7e6669b
children fbb38f6bf8dc
files lisp/mail/reporter.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/reporter.el	Sat Jul 05 03:27:25 1997 +0000
+++ b/lisp/mail/reporter.el	Sat Jul 05 03:41:35 1997 +0000
@@ -311,11 +311,11 @@
 	 (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'"