diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-03-02 23:08:22 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-03-02 23:08:22 -0800 |
| commit | fb532fe81139ed32003f29fc6a6358eb3c7fbcab (patch) | |
| tree | de5526c4f395fb92cb4eeb4dd36d953e7b39a996 /lisp | |
| parent | 15a7a774b1298bdbe279a5bd5fa6dcb0a94d7628 (diff) | |
| download | emacs-fb532fe81139ed32003f29fc6a6358eb3c7fbcab.tar.gz | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 <rgm@gnu.org> + * 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." |