mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

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

Browse Source 
interactively.
This commit is contained in:
Gerd Moellmann 2000-06-26 13:09:24 +00:00
parent 98c602effb
commit b2df30a65d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/menu-bar.el
View File

@ -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