mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases 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
Show Stats 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'"