Mercurial > emacs
changeset 17594:1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
(compose-mail-other-window, compose-mail-other-frame): New commands.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 29 Apr 1997 02:07:02 +0000 |
| parents | f3bbebd5c01d |
| children | eaad8bd00b12 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 19 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Tue Apr 29 01:36:06 1997 +0000 +++ b/lisp/simple.el Tue Apr 29 02:07:02 1997 +0000 @@ -2983,10 +2983,28 @@ SEND-ACTIONS is a list of actions to call when the message is sent. Each action has the form (FUNCTION . ARGS)." - (interactive) + (interactive + (list nil nil nil current-prefix-arg)) (let ((function (get mail-user-agent 'composefunc))) (funcall function to subject other-headers continue switch-function yank-action send-actions))) + +(defun compose-mail-other-window (&optional to subject other-headers continue + yank-action send-actions) + "Like \\[compose-mail], but edit the outgoing message in another window." + (interactive + (list nil nil nil current-prefix-arg)) + (compose-mail to subject other-headers continue + 'switch-to-buffer-other-window yank-action send-actions)) + + +(defun compose-mail-other-frame (&optional to subject other-headers continue + yank-action send-actions) + "Like \\[compose-mail], but edit the outgoing message in another frame." + (interactive + (list nil nil nil current-prefix-arg)) + (compose-mail to subject other-headers continue + 'switch-to-buffer-other-frame yank-action send-actions)) (defun set-variable (var val) "Set VARIABLE to VALUE. VALUE is a Lisp object.