/[emacs]/emacs/lisp/mail/sendmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/sendmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.262 by rms, Sun Nov 24 19:02:14 2002 UTC revision 1.263 by kfstorm, Fri Jan 3 22:46:53 2003 UTC
# Line 1  Line 1 
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
# Line 622  If within the headers, this makes the ne Line 622  If within the headers, this makes the ne
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)
# Line 1418  and don't delete any header fields." Line 1419  and don't delete any header fields."
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."

Legend:
Removed from v.1.262  
changed lines
  Added in v.1.263

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26