[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog menu-bar.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog menu-bar.el |
Date: |
Sat, 14 Nov 2009 20:05:37 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/11/14 20:05:36
Modified files:
lisp : ChangeLog menu-bar.el
Log message:
(menu-bar-tools-menu): Read and send mail entries are not constants.
(Bug#4913)
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16631&r2=1.16632
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/menu-bar.el?cvsroot=emacs&r1=1.370&r2=1.371
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16631
retrieving revision 1.16632
diff -u -b -r1.16631 -r1.16632
--- ChangeLog 14 Nov 2009 19:57:09 -0000 1.16631
+++ ChangeLog 14 Nov 2009 20:05:33 -0000 1.16632
@@ -1,5 +1,8 @@
2009-11-14 Glenn Morris <address@hidden>
+ * 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 <address@hidden>
Index: menu-bar.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/menu-bar.el,v
retrieving revision 1.370
retrieving revision 1.371
diff -u -b -r1.370 -r1.371
--- menu-bar.el 13 Nov 2009 22:19:53 -0000 1.370
+++ menu-bar.el 14 Nov 2009 20:05:36 -0000 1.371
@@ -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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog menu-bar.el,
Glenn Morris <=