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

interactively.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index e3adc6f4f65159127525216b0f16e0b4cad2a878..875a87580622acf7aeabf071946b459efa7e4fc4 100644 (file)
--- 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