From 8ba7cd4004e154cafc8d37d12e351f7cd2f03dac Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Fri, 3 Jan 2003 22:46:53 +0000 Subject: [PATCH] (mail-split-line): New function. (mail-mode-map): remap split-line to mail-split-line. --- lisp/mail/sendmail.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index ebf2f9afc90..00107a004cb 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -1,6 +1,6 @@ ;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*- -;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001, 2002 +;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001, 2002, 2003 ;; Free Software Foundation, Inc. ;; Maintainer: FSF @@ -622,6 +622,7 @@ If within the headers, this makes the new lines into continuation lines." (define-key mail-mode-map "\C-c\C-t" 'mail-text) (define-key mail-mode-map "\C-c\C-y" 'mail-yank-original) (define-key mail-mode-map "\C-c\C-r" 'mail-yank-region) + (define-key mail-mode-map [remap split-line] 'mail-split-line) (define-key mail-mode-map "\C-c\C-q" 'mail-fill-yanked-message) (define-key mail-mode-map "\C-c\C-w" 'mail-signature) (define-key mail-mode-map "\C-c\C-v" 'mail-sent-via) @@ -1418,6 +1419,13 @@ and don't delete any header fields." (if mail-yank-hooks (run-hooks 'mail-yank-hooks) (mail-indent-citation)))))))) + +(defun mail-split-line () + "Split current line, moving portion beyond point vertically down. +If the current line has `mail-yank-prefix', insert it on the new line." + (interactive "*") + (split-line mail-yank-prefix)) + (defun mail-attach-file (&optional file) "Insert a file at the end of the buffer, with separator lines around it." -- 2.39.2