# HG changeset patch # User Simon Marshall # Date 863594792 0 # Node ID dd8043525cd917f331f3c883af7dee6a47490d43 # Parent 41b7d56b62fbe7a409abf62ed4ded6d51021101c entry for expand-mail-aliases diff -r 41b7d56b62fb -r dd8043525cd9 lisp/mail/sendmail.el --- a/lisp/mail/sendmail.el Wed May 14 05:47:07 1997 +0000 +++ b/lisp/mail/sendmail.el Wed May 14 07:26:32 1997 +0000 @@ -445,6 +445,9 @@ (define-key mail-mode-map [menu-bar mail signature] '("Insert Signature" . mail-signature)) +(define-key mail-mode-map [menu-bar mail mail-sep] + '("--")) + (define-key mail-mode-map [menu-bar mail cancel] '("Cancel" . mail-dont-send)) @@ -457,14 +460,17 @@ (define-key mail-mode-map [menu-bar headers] (cons "Headers" (make-sparse-keymap "Move to Header"))) -(define-key mail-mode-map [menu-bar headers reply-to] - '("Reply-To" . mail-reply-to)) +(define-key mail-mode-map [menu-bar headers text] + '("Text" . mail-text)) + +(define-key mail-mode-map [menu-bar headers expand-aliases] + '("Expand Aliases" . expand-mail-aliases)) (define-key mail-mode-map [menu-bar headers sent-via] '("Sent Via" . mail-sent-via)) -(define-key mail-mode-map [menu-bar headers text] - '("Text" . mail-text)) +(define-key mail-mode-map [menu-bar headers reply-to] + '("Reply-To" . mail-reply-to)) (define-key mail-mode-map [menu-bar headers bcc] '("Bcc" . mail-bcc))