From 10893bb6b71e8132b947315f120f92101bb136ee Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Fri, 3 Jan 2003 22:48:19 +0000 Subject: [PATCH] (message-split-line): New function. (message-mode-map): Remap split-line to message-split-line. --- lisp/gnus/message.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 8c6f5bec9bc..698cc7c0a57 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -1414,6 +1414,7 @@ Point is left at the beginning of the narrowed-to region." (define-key message-mode-map "\C-c\C-v" 'message-delete-not-region) (define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature) (define-key message-mode-map "\M-\r" 'message-newline-and-reformat) + (define-key message-mode-map [remap split-line] 'message-split-line) (define-key message-mode-map "\C-c\C-a" 'mml-attach-file) @@ -1778,6 +1779,12 @@ With the prefix argument FORCE, insert the header anyway." (goto-char point) (forward-line 1))) +(defun message-split-line () + "Split current line, moving portion beyond point vertically down. +If the current line has `message-yank-prefix', insert it on the new line." + (interactive "*") + (split-line message-yank-prefix)) + (defun message-insert-signature (&optional force) "Insert a signature. See documentation for variable `message-signature'." (interactive (list 0))