From b5f019be9033d9952bb3c29d6fa6342ad709fc6e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 29 Apr 1997 02:07:02 +0000 Subject: [PATCH] (compose-mail): Make prefix arg mean "continue". (compose-mail-other-window, compose-mail-other-frame): New commands. --- lisp/simple.el | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) 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. -- 2.39.2