Index: openacs-4/packages/acs-admin/www/send-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/send-email.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-admin/www/send-email.tcl	13 Jun 2015 23:55:31 -0000	1.6
+++ openacs-4/packages/acs-admin/www/send-email.tcl	7 Aug 2017 23:47:45 -0000	1.7
@@ -9,7 +9,7 @@
     email_from
     subject
     message
-    return_url
+    return_url:localurl
     {show_sent_message_p:boolean "f"}
     {sent_title "Email sent"}
     {sent_subject "Email sent"}
@@ -25,7 +25,7 @@
 
 if {[catch {acs_mail_lite::send -send_immediately -to_addr $email -from_addr $email_from -subject $subject -body $message} errmsg]} {
     ad_return_error $error_subject "<p>$error_message</p>
-    <div><code>[ad_quotehtml $errmsg]</code></div>"
+    <div><code>[ns_quotehtml $errmsg]</code></div>"
     ad_script_abort
 }
 
@@ -34,3 +34,9 @@
     ad_returnredirect $return_url
     ad_script_abort
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: