# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 862279671 0
# Node ID 6deb79521f422b3435332c539cdc803e6c36b4c0
# Parent  eaad8bd00b12b5bede65aae6b3bf26deeef81546
Don't bind C-x m, C-x 4 m, C-x 5 m.

diff -r eaad8bd00b12 -r 6deb79521f42 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Tue Apr 29 02:07:34 1997 +0000
+++ b/lisp/mail/sendmail.el	Tue Apr 29 02:07:51 1997 +0000
@@ -1115,7 +1115,10 @@
       (or (bolp) (newline))
       (goto-char start))))
 
-;; Put these last, to reduce chance of lossage from quitting in middle of loading the file.
+;; Put these commands last, to reduce chance of lossage from quitting
+;; in middle of loading the file.
+
+;;;###autoload (add-hook 'same-window-buffer-names "*mail*")
 
 ;;;###autoload
 (defun mail (&optional noerase to subject in-reply-to cc replybuffer actions)
@@ -1267,14 +1270,6 @@
     (pop-to-buffer "*mail*"))
   (mail noerase to subject in-reply-to cc replybuffer sendactions))
 
-;;; Do not execute these when sendmail.el is loaded,
-;;; only in loaddefs.el.
-;;;###autoload (define-key ctl-x-map "m" 'mail)
-;;;###autoload (define-key ctl-x-4-map "m" 'mail-other-window)
-;;;###autoload (define-key ctl-x-5-map "m" 'mail-other-frame)
-
-;;;###autoload (add-hook 'same-window-buffer-names "*mail*")
-
 ;;; Do not add anything but external entries on this page.
 
 (provide 'sendmail)