mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(reporter-compose-outgoing): Use functionp,

Browse source 
not fboundp, to test validity of COMPOSE.
This commit is contained in:
Richard M. Stallman 1997-07-05 03:41:35 +00:00
parent 523e929122
commit 5504f993f9
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/reporter.el
View file

@ -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'"