1 |
;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*- |
;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*- |
2 |
|
|
3 |
;; 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 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
622 |
(define-key mail-mode-map "\C-c\C-t" 'mail-text) |
(define-key mail-mode-map "\C-c\C-t" 'mail-text) |
623 |
(define-key mail-mode-map "\C-c\C-y" 'mail-yank-original) |
(define-key mail-mode-map "\C-c\C-y" 'mail-yank-original) |
624 |
(define-key mail-mode-map "\C-c\C-r" 'mail-yank-region) |
(define-key mail-mode-map "\C-c\C-r" 'mail-yank-region) |
625 |
|
(define-key mail-mode-map [remap split-line] 'mail-split-line) |
626 |
(define-key mail-mode-map "\C-c\C-q" 'mail-fill-yanked-message) |
(define-key mail-mode-map "\C-c\C-q" 'mail-fill-yanked-message) |
627 |
(define-key mail-mode-map "\C-c\C-w" 'mail-signature) |
(define-key mail-mode-map "\C-c\C-w" 'mail-signature) |
628 |
(define-key mail-mode-map "\C-c\C-v" 'mail-sent-via) |
(define-key mail-mode-map "\C-c\C-v" 'mail-sent-via) |
1419 |
(if mail-yank-hooks |
(if mail-yank-hooks |
1420 |
(run-hooks 'mail-yank-hooks) |
(run-hooks 'mail-yank-hooks) |
1421 |
(mail-indent-citation)))))))) |
(mail-indent-citation)))))))) |
1422 |
|
|
1423 |
|
(defun mail-split-line () |
1424 |
|
"Split current line, moving portion beyond point vertically down. |
1425 |
|
If the current line has `mail-yank-prefix', insert it on the new line." |
1426 |
|
(interactive "*") |
1427 |
|
(split-line mail-yank-prefix)) |
1428 |
|
|
1429 |
|
|
1430 |
(defun mail-attach-file (&optional file) |
(defun mail-attach-file (&optional file) |
1431 |
"Insert a file at the end of the buffer, with separator lines around it." |
"Insert a file at the end of the buffer, with separator lines around it." |