[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el |
Date: |
Fri, 03 Jan 2003 17:46:54 -0500 |
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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el,
Kim F. Storm <=