Mercurial > emacs
changeset 106018:227bcb572dbe
(menu-bar-tools-menu): Read and send mail entries are not constants. (Bug#4913)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 14 Nov 2009 20:05:33 +0000 |
| parents | 660fd54d2835 |
| children | 053192c3df59 |
| files | lisp/ChangeLog lisp/menu-bar.el |
| diffstat | 2 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Nov 14 19:57:09 2009 +0000 +++ b/lisp/ChangeLog Sat Nov 14 20:05:33 2009 +0000 @@ -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>
--- a/lisp/menu-bar.el Sat Nov 14 19:57:09 2009 +0000 +++ b/lisp/menu-bar.el Sat Nov 14 20:05:33 2009 +0000 @@ -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 @@ (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 ()