emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/subr.el


From: Stefan Monnier
Subject: [Emacs-diffs] Changes to emacs/lisp/subr.el
Date: Wed, 11 Sep 2002 16:23:56 -0400

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.322 emacs/lisp/subr.el:1.323
*** emacs/lisp/subr.el:1.322    Mon Sep  9 19:13:18 2002
--- emacs/lisp/subr.el  Wed Sep 11 16:23:56 2002
***************
*** 2189,2195 ****
      ;;(overlay-put ol2 'face 'underline)
      (overlay-put ol2 'evaporate t)
      (overlay-put ol2 'text-clones dups)))
! 
  (defun play-sound (sound)
    "SOUND is a list of the form `(sound KEYWORD VALUE...)'.
  The following keywords are recognized:
--- 2189,2195 ----
      ;;(overlay-put ol2 'face 'underline)
      (overlay-put ol2 'evaporate t)
      (overlay-put ol2 'text-clones dups)))
! 
  (defun play-sound (sound)
    "SOUND is a list of the form `(sound KEYWORD VALUE...)'.
  The following keywords are recognized:
***************
*** 2210,2214 ****
--- 2210,2249 ----
    (unless (fboundp 'play-sound-internal)
      (error "This Emacs binary lacks sound support"))
    (play-sound-internal sound))
+ 
+ (defun define-mail-user-agent (symbol composefunc sendfunc
+                                     &optional abortfunc hookvar)
+   "Define a symbol to identify a mail-sending package for `mail-user-agent'.
+ 
+ SYMBOL can be any Lisp symbol.  Its function definition and/or
+ value as a variable do not matter for this usage; we use only certain
+ 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
+ by default.
+ 
+ COMPOSEFUNC should accept several optional arguments--the same
+ arguments that `compose-mail' takes.  See that function's documentation.
+ 
+ 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.  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'."
+   (put symbol 'composefunc composefunc)
+   (put symbol 'sendfunc sendfunc)
+   (put symbol 'abortfunc (or abortfunc 'kill-buffer))
+   (put symbol 'hookvar (or hookvar 'mail-send-hook)))
  
  ;;; subr.el ends here




reply via email to

[Prev in Thread] Current Thread [Next in Thread]