Index: openacs.org-dev/packages/forums/www/message-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-email.tcl,v
diff -u -r1.2 -r1.3
--- openacs.org-dev/packages/forums/www/message-email.tcl	5 Sep 2002 17:27:48 -0000	1.2
+++ openacs.org-dev/packages/forums/www/message-email.tcl	2 Nov 2002 13:55:10 -0000	1.3
@@ -10,6 +10,7 @@
     message_id:integer,notnull
 }
 
+ad_maybe_redirect_for_registration 
 forum::security::require_read_message -message_id $message_id
 
 form create message
@@ -65,11 +66,11 @@
 element set_properties message subject -value "\[Fwd: $message(subject)\]"
 element set_properties message message_id -value $message_id
 
-set context_bar [list [list "./forum-view?forum_id=$message(forum_id)" "$message(forum_name)"]]
+set context [list [list "./forum-view?forum_id=$message(forum_id)" "$message(forum_name)"]]
 if {![empty_string_p $message(parent_id)]} {
-    lappend context_bar [list "./message-view?message_id=$message(root_message_id)" "Entire Thread"]
+    lappend context [list "./message-view?message_id=$message(root_message_id)" "Entire Thread"]
 }
-lappend context_bar [list "./message-view?message_id=$message(message_id)" "$message(subject)"]
-lappend context_bar {Email to a friend}
+lappend context [list "./message-view?message_id=$message(message_id)" "$message(subject)"]
+lappend context {Email to a friend}
 
 ad_return_template