From fb532fe81139ed32003f29fc6a6358eb3c7fbcab Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 2 Mar 2011 23:08:22 -0800 Subject: [PATCH] sendmail.el fix for bug#1776. * lisp/mail/sendmail.el (mail-mode-map): Remove mail-sent-via. (mail-mode): Remove mail-sent-via from the doc. (mail-sent-via): Make it obsolete. --- lisp/ChangeLog | 4 ++++ lisp/mail/sendmail.el | 8 +++----- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 01a47fd4aaf..87d7cf03eb2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2011-03-03 Glenn Morris + * mail/sendmail.el (mail-mode-map): Remove mail-sent-via. + (mail-mode): Remove mail-sent-via from the doc. + (mail-sent-via): Make it obsolete. (Bug#1776) + * progmodes/grep.el (grep-highlight-matches): Doc fix. (grep-process-setup): No highlighting without font-lock. (Bug#8084) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 77ae87b5449..0548f24b1dd 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -309,7 +309,6 @@ The default value matches citations like `foo-bar>' plus whitespace." (define-key map [remap split-line] 'mail-split-line) (define-key map "\C-c\C-q" 'mail-fill-yanked-message) (define-key map "\C-c\C-w" 'mail-signature) - (define-key map "\C-c\C-v" 'mail-sent-via) (define-key map "\C-c\C-c" 'mail-send-and-exit) (define-key map "\C-c\C-s" 'mail-send) (define-key map "\C-c\C-i" 'mail-attach-file) @@ -349,9 +348,6 @@ The default value matches citations like `foo-bar>' plus whitespace." (define-key map [menu-bar headers expand-aliases] '("Expand Aliases" . expand-mail-aliases)) - (define-key map [menu-bar headers sent-via] - '("Sent-Via" . mail-sent-via)) - (define-key map [menu-bar headers mail-reply-to] '("Mail-Reply-To" . mail-mail-reply-to)) @@ -665,7 +661,6 @@ Here are commands that move to a header field (and create it if there isn't): \\[mail-signature] mail-signature (insert `mail-signature-file' file). \\[mail-yank-original] mail-yank-original (insert current message, in Rmail). \\[mail-fill-yanked-message] mail-fill-yanked-message (fill what was yanked). -\\[mail-sent-via] mail-sent-via (add a sent-via field for each To or CC). Turning on Mail mode runs the normal hooks `text-mode-hook' and `mail-mode-hook' (in that order)." (make-local-variable 'mail-reply-action) @@ -1346,6 +1341,9 @@ just append to the file, in Babyl format if necessary." (point))))) ;; Insert a copy, with altered header field name. (insert-before-markers "Sent-via:" to-line)))))) + +(make-obsolete 'mail-sent-via "nobody can remember what it is for." "24.1") + (defun mail-to () "Move point to end of To field, creating it if necessary." -- 2.39.2