[Emacs-diffs] /srv/bzr/emacs/trunk r103489: sendmail.el fix for bug#1776.

[Glenn Morris]

------------------------------------------------------------
revno: 103489
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2011-03-02 23:08:22 -0800
message:
  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.
modified:
  lisp/ChangeLog
  lisp/mail/sendmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-03 06:39:11 +0000
+++ b/lisp/ChangeLog    2011-03-03 07:08:22 +0000
@@ -1,5 +1,9 @@
 2011-03-03  Glenn Morris  <address@hidden>
 
+       * 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)
 

=== modified file 'lisp/mail/sendmail.el'
--- a/lisp/mail/sendmail.el     2011-01-25 04:08:28 +0000
+++ b/lisp/mail/sendmail.el     2011-03-03 07:08:22 +0000
@@ -309,7 +309,6 @@
     (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 @@
     (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 @@
 \\[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 @@
                                   (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."