Mercurial > emacs
comparison lisp/menu-bar.el @ 27235:be0785a51ed7
(menu-bar-tools-menu): Use read-mail-command.
author | Dave Love <fx@gnu.org> |
---|---|
date | Fri, 07 Jan 2000 12:55:26 +0000 |
parents | 7afb74b5999e |
children | 6d84505f3b35 |
comparison
equal
deleted
inserted
replaced
27234:bf32d38f9721 | 27235:be0785a51ed7 |
---|---|
73 | 73 |
74 (define-key menu-bar-tools-menu [calendar] '("Display Calendar" . calendar)) | 74 (define-key menu-bar-tools-menu [calendar] '("Display Calendar" . calendar)) |
75 (define-key menu-bar-tools-menu [speedbar] | 75 (define-key menu-bar-tools-menu [speedbar] |
76 '("Display Speedbar" . speedbar-frame-mode)) | 76 '("Display Speedbar" . speedbar-frame-mode)) |
77 (define-key menu-bar-tools-menu [compose-mail] '("Send Mail" . compose-mail)) | 77 (define-key menu-bar-tools-menu [compose-mail] '("Send Mail" . compose-mail)) |
78 (define-key menu-bar-tools-menu [rmail] '("Read Mail" . rmail)) | 78 (define-key menu-bar-tools-menu [rmail] '("Read Mail" . read-mail-command)) |
79 (define-key menu-bar-tools-menu [gnus] '("Read Net News" . gnus)) | 79 (define-key menu-bar-tools-menu [gnus] '("Read Net News" . gnus)) |
80 | 80 |
81 (define-key menu-bar-tools-menu [separator-vc] | 81 (define-key menu-bar-tools-menu [separator-vc] |
82 '("--")) | 82 '("--")) |
83 | 83 |