--- a/Tools__NewSystemBrowser.st	Fri Oct 01 16:34:10 2010 +0200
+++ b/Tools__NewSystemBrowser.st	Tue Oct 05 12:27:13 2010 +0200
@@ -5741,7 +5741,7 @@
                   label: '-'
                 )
                (MenuItem
-                  enabled: hasClassSelectedHolder
+                  enabled: hasClassSelectedAndCanSendMailHolder
                   label: 'Mail To...'
                   itemValue: classMenuMailTo
                   translateLabel: true
@@ -6208,7 +6208,7 @@
         nil
       )
 
-    "Modified: / 29-08-2010 / 14:26:37 / cg"
+    "Modified: / 05-10-2010 / 12:25:55 / cg"
 !
 
 classMenuCVS
@@ -13589,6 +13589,12 @@
     "Created: / 4.2.2000 / 22:02:53 / cg"
 !
 
+hasClassSelectedAndCanSendMailHolder
+    ^ [ self hasClassSelected and:[ SendMailTool notNil] ]
+
+    "Created: / 05-10-2010 / 12:26:23 / cg"
+!
+
 hasClassSelectedAndControlKeyDown
 
     ^ self hasClassSelected and:[self window sensor ctrlDown]
@@ -44624,11 +44630,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1481 2010-09-05 16:07:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1482 2010-10-05 10:27:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1481 2010-09-05 16:07:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1482 2010-10-05 10:27:13 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!