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.21 -r1.22
--- openacs-4/packages/acs-mail-lite/lib/email.tcl	18 Mar 2006 17:50:13 -0000	1.21
+++ openacs-4/packages/acs-mail-lite/lib/email.tcl	10 Apr 2006 11:26:57 -0000	1.22
@@ -24,7 +24,7 @@
 if {![info exists mime_type]} {
     set mime_type "text/plain"
 }
-if {![info exists cancel_url]} {
+if {![exists_and_not_null cancel_url]} {
     set cancel_url $return_url
 }
 
@@ -57,6 +57,7 @@
     set form_elements {
 	message_id:key
 	return_url:text(hidden)
+	cancel_url:text(hidden)
 	no_callback_p:text(hidden)
 	title:text(hidden),optional
 	{message_type:text(hidden) {value "email"}}
@@ -76,6 +77,7 @@
     set form_elements {
 	message_id:key
 	return_url:text(hidden)
+	cancel_url:text(hidden)
 	no_callback_p:text(hidden)
 	title:text(hidden),optional
 	{message_type:text(hidden) {value "email"}}