From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 26 Jun 2000 13:09:24 +0000 (+0000)
Subject: (menu-bar-tools-menu): Call read-mail-command
X-Git-Tag: emacs-pretest-21.0.90~3071
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b2df30a65dc2a83779393836f38e8bcd870955a1;p=emacs.git

(menu-bar-tools-menu): Call read-mail-command
interactively.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index e3adc6f4f65..875a8758062 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -688,7 +688,9 @@ Do the same for the keys of the same name."
   '(menu-item "Send Mail" compose-mail
 	      :help "Send a mail message"))
 (define-key menu-bar-tools-menu [rmail]
-  '(menu-item "Read Mail" read-mail-command
+  '(menu-item "Read Mail" (lambda ()
+			    (interactive)
+			    (call-interactively read-mail-command))
 	      :help "Read your mail and reply to it"))
 (define-key menu-bar-tools-menu [gnus]
   '(menu-item "Read Net News" gnus