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.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/forums/www/message-email.tcl	9 Jul 2002 17:35:09 -0000	1.1.1.1
+++ openacs.org-dev/packages/forums/www/message-email.tcl	8 Oct 2002 15:47:12 -0000	1.1.1.2
@@ -2,9 +2,9 @@
     
     Forward a message to a friend
 
-    @author Ben Adida (ben@openforce)
+    @author Ben Adida (ben@openforce.net)
     @creation-date 2002-05-28
-    @version $Id$
+    @cvs-id $Id$
 
 } {
     message_id:integer,notnull
@@ -65,11 +65,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