[Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el

[Kim F. Storm]

Index: emacs/lisp/mail/sendmail.el
diff -c emacs/lisp/mail/sendmail.el:1.262 emacs/lisp/mail/sendmail.el:1.263
*** emacs/lisp/mail/sendmail.el:1.262   Sun Nov 24 14:02:14 2002
--- emacs/lisp/mail/sendmail.el Fri Jan  3 17:46:53 2003
***************
*** 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
  ;;   Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
--- 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, 2003
  ;;   Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
***************
*** 622,627 ****
--- 622,628 ----
    (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,1423 ****
--- 1419,1431 ----
               (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."