mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(menu-bar-tools-menu): Read and send mail entries are not constants. (Bug#4913)

Browse source
This commit is contained in:
Glenn Morris 2009-11-14 20:05:33 +00:00
parent a61344d684
commit 497f0cddc9
2 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2009-11-14 Glenn Morris <rgm@gnu.org>
* menu-bar.el (menu-bar-tools-menu): Read and send mail entries are not
constants. (Bug#4913)
* emacs-lisp/elint.el (elint-standard-variables): Doc fix.
2009-11-14 Shigeru Fukaya <shigeru.fukaya@gmail.com>

12
lisp/menu-bar.el
View file

@ -1,7 +1,7 @@
;;; menu-bar.el --- define a default menu bar
;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004,
;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004, 2005,
;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; Author: RMS
;; Maintainer: FSF
@ -1283,12 +1283,14 @@ mail status in mode line"))
(define-key menu-bar-tools-menu [directory-search]
`(menu-item ,(purecopy "Directory Search") eudc-tools-menu))
(define-key menu-bar-tools-menu [compose-mail]
`(menu-item ,(purecopy (format "Send Mail (with %s)" (send-mail-item-name))) compose-mail
`(menu-item (format "Send Mail (with %s)" (send-mail-item-name)) compose-mail
:visible (and mail-user-agent (not (eq mail-user-agent 'ignore)))
:help ,(purecopy "Send a mail message")))
(define-key menu-bar-tools-menu [rmail]
`(menu-item ,(purecopy (format "Read Mail (with %s)" (read-mail-item-name))) menu-bar-read-mail
:visible (and read-mail-command (not (eq read-mail-command 'ignore)))
`(menu-item (format "Read Mail (with %s)" (read-mail-item-name))
menu-bar-read-mail
:visible (and read-mail-command
(not (eq read-mail-command 'ignore)))
:help ,(purecopy "Read your mail and reply to it")))
(defun menu-bar-read-mail ()