/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.322 by monnier, Mon Sep 9 23:13:18 2002 UTC revision 1.323 by monnier, Wed Sep 11 20:23:56 2002 UTC
# Line 2189  clone should be incorporated in the clon Line 2189  clone should be incorporated in the clon
2189      ;;(overlay-put ol2 'face 'underline)      ;;(overlay-put ol2 'face 'underline)
2190      (overlay-put ol2 'evaporate t)      (overlay-put ol2 'evaporate t)
2191      (overlay-put ol2 'text-clones dups)))      (overlay-put ol2 'text-clones dups)))
2192    
2193  (defun play-sound (sound)  (defun play-sound (sound)
2194    "SOUND is a list of the form `(sound KEYWORD VALUE...)'.    "SOUND is a list of the form `(sound KEYWORD VALUE...)'.
2195  The following keywords are recognized:  The following keywords are recognized:
# Line 2211  a system-dependent default device name i Line 2211  a system-dependent default device name i
2211      (error "This Emacs binary lacks sound support"))      (error "This Emacs binary lacks sound support"))
2212    (play-sound-internal sound))    (play-sound-internal sound))
2213    
2214    (defun define-mail-user-agent (symbol composefunc sendfunc
2215                                          &optional abortfunc hookvar)
2216      "Define a symbol to identify a mail-sending package for `mail-user-agent'.
2217    
2218    SYMBOL can be any Lisp symbol.  Its function definition and/or
2219    value as a variable do not matter for this usage; we use only certain
2220    properties on its property list, to encode the rest of the arguments.
2221    
2222    COMPOSEFUNC is program callable function that composes an outgoing
2223    mail message buffer.  This function should set up the basics of the
2224    buffer without requiring user interaction.  It should populate the
2225    standard mail headers, leaving the `to:' and `subject:' headers blank
2226    by default.
2227    
2228    COMPOSEFUNC should accept several optional arguments--the same
2229    arguments that `compose-mail' takes.  See that function's documentation.
2230    
2231    SENDFUNC is the command a user would run to send the message.
2232    
2233    Optional ABORTFUNC is the command a user would run to abort the
2234    message.  For mail packages that don't have a separate abort function,
2235    this can be `kill-buffer' (the equivalent of omitting this argument).
2236    
2237    Optional HOOKVAR is a hook variable that gets run before the message
2238    is actually sent.  Callers that use the `mail-user-agent' may
2239    install a hook function temporarily on this hook variable.
2240    If HOOKVAR is nil, `mail-send-hook' is used.
2241    
2242    The properties used on SYMBOL are `composefunc', `sendfunc',
2243    `abortfunc', and `hookvar'."
2244      (put symbol 'composefunc composefunc)
2245      (put symbol 'sendfunc sendfunc)
2246      (put symbol 'abortfunc (or abortfunc 'kill-buffer))
2247      (put symbol 'hookvar (or hookvar 'mail-send-hook)))
2248    
2249  ;;; subr.el ends here  ;;; subr.el ends here

Legend:
Removed from v.1.322  
changed lines
  Added in v.1.323

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26