[Emacs-diffs] trunk r113913: Simplify news and mail menu items

[Glenn Morris]

------------------------------------------------------------
revno: 113913
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/15095
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2013-08-15 23:50:58 -0700
message:
  Simplify news and mail menu items
  
  * lisp/menu-bar.el (send-mail-item-name, read-mail-item-name): Remove.
  (menu-bar-tools-menu): Simplify news and mail items.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/menu-bar.el               menubar.el-20091113204419-o5vbwnq5f7feedwu-546

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-16 06:33:08 +0000
+++ b/lisp/ChangeLog    2013-08-16 06:50:58 +0000
@@ -1,5 +1,8 @@
 2013-08-16  Glenn Morris  <address@hidden>
 
+       * menu-bar.el (send-mail-item-name, read-mail-item-name): Remove.
+       (menu-bar-tools-menu): Simplify news and mail items.  (Bug#15095)
+
        * image-mode.el (image-mode-map): Add menu items to reverse,
        increase, decrease, reset animation speed.
        (image--set-speed, image-increase-speed, image-decrease-speed)

=== modified file 'lisp/menu-bar.el'
--- a/lisp/menu-bar.el  2013-02-17 03:40:38 +0000
+++ b/lisp/menu-bar.el  2013-08-16 06:50:58 +0000
@@ -1307,26 +1307,6 @@
 
 ;; The "Tools" menu items
 
-(defun send-mail-item-name ()
-  (let* ((known-send-mail-commands '((sendmail-user-agent . "sendmail")
-                                    (mh-e-user-agent . "MH")
-                                    (message-user-agent . "Gnus Message")
-                                    (gnus-user-agent . "Gnus")))
-        (name (assq mail-user-agent known-send-mail-commands)))
-    (if name
-       (setq name (cdr name))
-      (setq name (symbol-name mail-user-agent))
-      (if (string-match "\\(.+\\)-user-agent" name)
-         (setq name (match-string 1 name))))
-    name))
-
-(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
   (let ((menu (make-sparse-keymap "Games")))
 
@@ -1473,18 +1453,17 @@
     (bindings--define-key menu [directory-search]
       '(menu-item "Directory Search" eudc-tools-menu))
     (bindings--define-key menu [compose-mail]
-      '(menu-item (format "Send Mail (with %s)" (send-mail-item-name)) 
compose-mail
+      '(menu-item "Compose New Mail" compose-mail
                   :visible (and mail-user-agent (not (eq mail-user-agent 
'ignore)))
-                  :help "Send a mail message"))
+                  :help "Start writing a new mail message"))
     (bindings--define-key menu [rmail]
-      '(menu-item (format "Read Mail (with %s)" (read-mail-item-name))
-                  menu-bar-read-mail
+      '(menu-item "Read Mail" menu-bar-read-mail
                   :visible (and read-mail-command
                                 (not (eq read-mail-command 'ignore)))
-                  :help "Read your mail and reply to it"))
+                  :help "Read your mail"))
 
     (bindings--define-key menu [gnus]
-      '(menu-item "Read Net News (Gnus)" gnus
+      '(menu-item "Read Net News" gnus
                   :help "Read network news groups"))
 
     (bindings--define-key menu [separator-vc]