mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-05 05:21:26 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(compose-mail-other-window, compose-mail-other-frame): New commands.
This commit is contained in:
Richard M. Stallman 1997-04-29 02:07:02 +00:00
parent fa66717348
commit b5f019be90
1 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/simple.el
View file

@ -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.