diff options
| author | Richard M. Stallman | 1997-07-05 03:41:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-05 03:41:35 +0000 |
| commit | 5504f993f90e5203f8447d2da34400364522e25d (patch) | |
| tree | 32a2a829212d1102c0aa273277689e8d151321da | |
| parent | 523e929122415f6bad52eca72af3222c90caebcf (diff) | |
| download | emacs-5504f993f90e5203f8447d2da34400364522e25d.tar.gz emacs-5504f993f90e5203f8447d2da34400364522e25d.zip | |
(reporter-compose-outgoing): Use functionp,
not fboundp, to test validity of COMPOSE.
| -rw-r--r-- | lisp/mail/reporter.el | 4 |
1 files 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.") | |||
| 311 | (compose (get mail-user-agent 'composefunc))) | 311 | (compose (get mail-user-agent 'composefunc))) |
| 312 | ;; Sanity check. If this fails then we'll try to use the SENDMAIL | 312 | ;; Sanity check. If this fails then we'll try to use the SENDMAIL |
| 313 | ;; protocol, otherwise we must signal an error. | 313 | ;; protocol, otherwise we must signal an error. |
| 314 | (if (not (and compose (fboundp compose))) | 314 | (if (not (and compose (functionp compose))) |
| 315 | (progn | 315 | (progn |
| 316 | (setq agent 'sendmail-user-agent | 316 | (setq agent 'sendmail-user-agent |
| 317 | compose (get agent 'composefunc)) | 317 | compose (get agent 'composefunc)) |
| 318 | (if (not (and compose (fboundp compose))) | 318 | (if (not (and compose (functionp compose))) |
| 319 | (error "Could not find a valid `mail-user-agent'") | 319 | (error "Could not find a valid `mail-user-agent'") |
| 320 | (ding) | 320 | (ding) |
| 321 | (message "`%s' is an invalid `mail-user-agent'; using `sendmail-user-agent'" | 321 | (message "`%s' is an invalid `mail-user-agent'; using `sendmail-user-agent'" |