From: Simon Marshall <simon@gnu.org>
Date: Wed, 14 May 1997 07:26:32 +0000 (+0000)
Subject: entry for expand-mail-aliases
X-Git-Tag: emacs-20.1~2149
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1abf89b818fefc8e23655b05a500e894b260a0cd;p=emacs.git

entry for expand-mail-aliases
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index e60156977a2..2a516596a84 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -445,6 +445,9 @@ If within the headers, this makes the new lines into continuation lines."
 (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 @@ If within the headers, this makes the new lines into continuation lines."
 (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))