[Top][All Lists]
[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