Index: openacs-4/packages/acs-mail-lite/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/lib/Attic/email.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-mail-lite/lib/email.tcl	21 Jun 2005 13:56:23 -0000	1.2
+++ openacs-4/packages/acs-mail-lite/lib/email.tcl	21 Jun 2005 17:27:28 -0000	1.3
@@ -19,6 +19,9 @@
 if {![info exists mime_type]} {
     set mime_type "text/plain"
 }
+if {![info exists cancel_url]} {
+    set cancel_url $return_url
+}
 
 foreach party_id $party_ids {
     lappend recipients "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a>"
@@ -59,7 +62,7 @@
     -html {enctype multipart/form-data} \
     -name email \
     -cancel_label "[_ contacts.Cancel]" \
-    -cancel_url $return_url \
+    -cancel_url $cancel_url \
     -edit_buttons {{"Send" send}} \
     -form $form_elements \
     -on_request {