changeset 49034:b6e082e00b00

(message-split-line): New function. (message-mode-map): Remap split-line to message-split-line.
author Kim F. Storm <storm@cua.dk>
date Fri, 03 Jan 2003 22:48:19 +0000
parents 4a660dffff16
children af9ed9872109
files lisp/gnus/message.el
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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))