Commit b5f019be authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(compose-mail): Make prefix arg mean "continue".

(compose-mail-other-window, compose-mail-other-frame): New commands.
parent fa667173
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment