--- loncom/interface/lonmsg.pm 2006/12/05 02:55:53 1.187 +++ loncom/interface/lonmsg.pm 2006/12/06 17:14:50 1.188 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.187 2006/12/05 02:55:53 albertel Exp $ +# $Id: lonmsg.pm,v 1.188 2006/12/06 17:14:50 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -223,7 +223,7 @@ sub sendemail { my $msg = new Mail::Send; $msg->to($to); $msg->subject('[LON-CAPA] '.$subject); - if ($senderaddress) { $msg->add('Reply-to',$senderaddress); } + if ($senderaddress) { $msg->add('Reply-to',$senderaddress); $msg->add('From',$senderaddress); } if (my $fh = $msg->open()) { print $fh $body; $fh->close;