From 699adcb295b81156f4e6e3aaf164264b02590ac6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 29 Apr 1997 02:07:51 +0000 Subject: [PATCH] Don't bind C-x m, C-x 4 m, C-x 5 m. --- lisp/mail/sendmail.el | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 7444a79aa0e..e60156977a2 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -1115,7 +1115,10 @@ and don't delete any header fields." (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 @@ The seventh argument ACTIONS is a list of actions to take (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) -- 2.39.2