1414 |
(define-key message-mode-map "\C-c\C-v" 'message-delete-not-region) |
(define-key message-mode-map "\C-c\C-v" 'message-delete-not-region) |
1415 |
(define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature) |
(define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature) |
1416 |
(define-key message-mode-map "\M-\r" 'message-newline-and-reformat) |
(define-key message-mode-map "\M-\r" 'message-newline-and-reformat) |
1417 |
|
(define-key message-mode-map [remap split-line] 'message-split-line) |
1418 |
|
|
1419 |
(define-key message-mode-map "\C-c\C-a" 'mml-attach-file) |
(define-key message-mode-map "\C-c\C-a" 'mml-attach-file) |
1420 |
|
|
1779 |
(goto-char point) |
(goto-char point) |
1780 |
(forward-line 1))) |
(forward-line 1))) |
1781 |
|
|
1782 |
|
(defun message-split-line () |
1783 |
|
"Split current line, moving portion beyond point vertically down. |
1784 |
|
If the current line has `message-yank-prefix', insert it on the new line." |
1785 |
|
(interactive "*") |
1786 |
|
(split-line message-yank-prefix)) |
1787 |
|
|
1788 |
(defun message-insert-signature (&optional force) |
(defun message-insert-signature (&optional force) |
1789 |
"Insert a signature. See documentation for variable `message-signature'." |
"Insert a signature. See documentation for variable `message-signature'." |
1790 |
(interactive (list 0)) |
(interactive (list 0)) |