From b2df30a65dc2a83779393836f38e8bcd870955a1 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 26 Jun 2000 13:09:24 +0000 Subject: [PATCH] (menu-bar-tools-menu): Call read-mail-command interactively. --- lisp/menu-bar.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 2.39.2