Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.76 -r1.77
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	26 Oct 2004 14:16:32 -0000	1.76
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	13 Jan 2005 13:55:56 -0000	1.77
@@ -2571,6 +2571,7 @@
 
 ad_proc -public ad_returnredirect {
     {-message {}}
+    {-html:boolean}
     target_url
 } {
     Write the HTTP response required to get the browser to redirect to a different page, 
@@ -2593,6 +2594,8 @@
     </ul>
 
     @param message A message to display to the user. See util_user_message.
+    @param html Set this flag if your message contains HTML. If specified, you're responsible for proper quoting 
+    of everything in your message. Otherwise, we quote it for you.
     
     @see util_user_message
     @see ad_script_abort
@@ -2627,6 +2630,12 @@
     } else {
         ns_returnredirect $url
     }
+    
+    if { [string is false $html_p] } {
+	util_user_message -message $message
+    } else {
+	util_user_message -message $message -html
+    }
 }
 
 ad_proc -public util_user_message { 
@@ -2646,9 +2655,10 @@
     @see util_get_user_messages
 } {
     if { ![empty_string_p $message] } {
-        if { !$html_p } {
+        if { [string is false $html_p] } {
             set message [ad_quotehtml $message]
         }
+
         if { !$replace_p } {
             set new_messages [ad_get_client_property -default {} -cache_only t "acs-kernel" "general_messages"]
             lappend new_messages $message