Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	30 Sep 2005 22:26:40 -0000	1.35
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	14 Oct 2005 21:48:23 -0000	1.36
@@ -907,6 +907,7 @@
 	@option no_callback_p Boolean that indicates if callback should be executed or not. If you don't provide it it will execute callbacks
         @returns the Message-Id of the mail
     } {
+
 	## Extract "from" email address
 	set from_addr [parse_email_address -email $from_addr]
 
@@ -1017,7 +1018,15 @@
 	@param no_callback_p Boolean that indicates if callback should be executed or not. If you don't provide it it will execute callbacks	
 	
     } {
+	
+	# We check if the parameter 
+	set fixed_sender [parameter::get -parameter "FixedSenderEmail" \
+			      -package_id [apm_package_id_from_key "acs-mail-lite"]]
 
+	if { ![empty_string_p $fixed_sender] } {
+	    set from_addr $fixed_sender
+	}
+
 	# Set the message token
 	set message_token [mime::initialize -canonical "$mime_type" -string "$body"]