--- loncom/interface/lontemplate.pm	2009/10/12 08:01:08	1.38
+++ loncom/interface/lontemplate.pm	2009/10/16 13:47:40	1.39
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # "Template" Functions to generate html output
 #
-# $Id: lontemplate.pm,v 1.38 2009/10/12 08:01:08 amueller Exp $
+# $Id: lontemplate.pm,v 1.39 2009/10/16 13:47:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -91,10 +91,10 @@ sub print_aboutme_content_template {
 
 sub send_message {
 	my ($r,$cnum,$cdom) = @_;
-	my $s;
+	my $linktext = &mt('Send message to [_1]',
+			   &Apache::loncommon::plainname($cnum,$cdom));
 	my $image = qq{<img name="Send_message" alt="Send message symbol" src="/res/adm/pages/mail-message-new.png" border="none" align="middle" />};
-	$s=&Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom);
-	return $s;
+	return &Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper($linktext,$cnum,$cdom);
 }
 
 sub print_template {