Index: openacs-4/packages/acs-mail-lite/tcl/complex-send-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/Attic/complex-send-procs.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/acs-mail-lite/tcl/complex-send-procs.tcl	13 Sep 2007 13:52:05 -0000	1.9
+++ openacs-4/packages/acs-mail-lite/tcl/complex-send-procs.tcl	6 Nov 2007 07:41:53 -0000	1.10
@@ -700,6 +700,9 @@
         @param multi_token Multi Token generated which is passed directly to smtp::sendmessage
         @param headers List of list of header key-value pairs like {{from malte@cognovis.de} {to malte@cognovis.de}}
     } {
+
+	set mail_package_id [apm_package_id_from_key "acs-mail-lite"]
+
         # Get the SMTP Parameters
     	set smtp [parameter::get -parameter "SMTPHost" \
     	     -package_id $mail_package_id -default [ns_config ns/parameters mailhost]]
@@ -714,13 +717,13 @@
     	}
 
     	set smtpport [parameter::get -parameter "SMTPPort" \
-    	     -package_id [apm_package_id_from_key "acs-mail-lite"] -default 25]
+    	     -package_id $mail_package_id -default 25]
 
     	set smtpuser [parameter::get -parameter "SMTPUser" \
-    	     -package_id [apm_package_id_from_key "acs-mail-lite"]]
+    	     -package_id $mail_package_id]
 
     	set smtppassword [parameter::get -parameter "SMTPPassword" \
-    	     -package_id [apm_package_id_from_key "acs-mail-lite"]]
+    	     -package_id $mail_package_id]
     	
     	set cmd_string "smtp::sendmessage $multi_token"     
     	foreach header $headers {