changeset 49034:b6e082e00b00

(message-split-line): New function. (message-mode-map): Remap split-line to message-split-line.

--- a/lisp/gnus/message.el	Fri Jan 03 22:46:53 2003 +0000
+++ b/lisp/gnus/message.el	Fri Jan 03 22:48:19 2003 +0000
@@ -1414,6 +1414,7 @@
   (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 @@
     (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))