diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-04-29 02:07:02 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-04-29 02:07:02 +0000 |
commit | fd03a412debda3914d406cb8dfad3effec3bb7a0 (patch) | |
tree | 2549ff83e27eb8983a2797f6bdc85f9b16fb12e7 /lisp/simple.el | |
parent | dd9c405f267654537b49e760cbed810c1024dc99 (diff) | |
download | emacs-fd03a412debda3914d406cb8dfad3effec3bb7a0.tar.gz |
(compose-mail): Make prefix arg mean "continue".
(compose-mail-other-window, compose-mail-other-frame): New commands.
Diffstat (limited to 'lisp/simple.el')
-rw-r--r-- | lisp/simple.el | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 540d2f2f76f..92da208797a 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2983,10 +2983,28 @@ original text has been inserted in this way.) 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. |