From 3183b23074b3ffc55b208d817b26aa3736b44f94 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 7 Dec 1996 20:36:21 +0000 Subject: [PATCH] (sendmail-user-agent): Support 2 optional args. (define-mail-user-agent): Doc fix. --- lisp/simple.el | 27 +++++++++++++++++---------- 1 file changed, 17 insertions(+), 10 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index bc4bee00c02..17bda77a3c5 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2823,8 +2823,9 @@ mail-sending package you prefer. Valid values include: - 'sendmail-user-agent -- use Emacs built-in Mail package - 'mh-e-user-agent -- use the Emacs interface to the MH mail system + sendmail-user-agent -- use the default Emacs Mail package + mh-e-user-agent -- use the Emacs interface to the MH mail system + message-user-agent -- use the GNUS mail sending package Additional valid symbols may be available; check with the author of your package for details.") @@ -2840,18 +2841,23 @@ properties on its property list, to encode the rest of the arguments. COMPOSEFUNC is program callable function that composes an outgoing mail message buffer. This function should set up the basics of the buffer without requiring user interaction. It should populate the -standard mail headers, leaving the `to:' and `subject:' headers blank. +standard mail headers, leaving the `to:' and `subject:' headers blank +by default. -SENDFUNC is the command a user would type to send the message. +COMPOSEFUNC should accept two optional arguments: +TO and SUBJECT. TO specifies a string to insert in the `To:' field, +and SUBJECT specifies a string to insert in the `Subject:' field. -Optional ABORTFUNC is the command a user would type to abort the +SENDFUNC is the command a user would run to send the message. + +Optional ABORTFUNC is the command a user would run to abort the message. For mail packages that don't have a separate abort function, this can be `kill-buffer' (the equivalent of omitting this argument). Optional HOOKVAR is a hook variable that gets run before the message -is actually sent. Reporter will install `reporter-bug-hook' onto this -hook so that empty bug reports can be suppressed by raising an error. -If not supplied, `mail-send-hook' will be used. +is actually sent. Callers that use the `mail-user-agent' may +install a hook function temporarily on this hook variable. +If HOOKVAR is nil, `mail-send-hook' is used. The properties used on SYMBOL are `composefunc', `sendfunc', `abortfunc', and `hookvar'." @@ -2861,8 +2867,9 @@ The properties used on SYMBOL are `composefunc', `sendfunc', (put symbol 'hookvar (or hookvar 'mail-send-hook))) (define-mail-user-agent 'sendmail-user-agent - '(lambda (&rest args) (or (apply 'mail args) - (error "Message aborted"))) + '(lambda (&optional to subject) + (or (mail nil to subject) + (error "Message aborted"))) 'mail-send-and-exit) (define-mail-user-agent 'mh-e-user-agent -- 2.39.5