diff options
author | Eli Zaretskii <[email protected]> | 2000-09-07 17:14:55 +0000 |
---|---|---|
committer | Eli Zaretskii <[email protected]> | 2000-09-07 17:14:55 +0000 |
commit | 0a1f9f1d9ef3fc2f300255ef2d73f51faff767ee (patch) | |
tree | 65294f2f6b89913cb387d77b6b82fe4012a75d0e | |
parent | 65606f5ea1de3bea4e6d417e0fbb0be6fd847ba9 (diff) |
(read-mail-item-name): New function.
(menu-bar-tools-menu): Use it to compute and display the package
used to read email.
(menu-bar-tools-menu): Fix typo in GUD's help string.
-rw-r--r-- | lisp/menu-bar.el | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 538a12db87..744ff2a551 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -639,6 +639,13 @@ Do the same for the keys of the same name." ;; The "Tools" menu items +(defun read-mail-item-name () + (let* ((known-rmail-commands '((rmail . "RMAIL") + (mh-rmail . "MH") + (gnus . "Gnus"))) + (known (assq read-mail-command known-rmail-commands))) + (if known (cdr known) (symbol-name read-mail-command)))) + (defvar menu-bar-games-menu (make-sparse-keymap "Games")) (define-key menu-bar-tools-menu [games] @@ -693,12 +700,14 @@ 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" (lambda () - (interactive) - (call-interactively read-mail-command)) - :help "Read your mail and reply to it")) + (list + 'menu-item `(format "Read Mail (with %s)" (read-mail-item-name)) + (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 + '(menu-item "Read Net News (Gnus)" gnus :help "Read network news groups")) (define-key menu-bar-tools-menu [separator-vc] @@ -739,7 +748,7 @@ Do the same for the keys of the same name." (define-key menu-bar-tools-menu [gdb] '(menu-item "Debugger (GUD)..." gdb - :help "Debug a program from withing Emacs")) + :help "Debug a program from within Emacs")) (define-key menu-bar-tools-menu [shell-on-region] '(menu-item "Shell Command on Region..." shell-command-on-region :enable mark-active |