Commit 10893bb6 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(message-split-line): New function.

(message-mode-map): Remap split-line to message-split-line.
parent 8ba7cd40
......@@ -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))
......
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