Index: openacs-4/packages/contacts/www/contact.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v
diff -u -N -r1.34 -r1.35
--- openacs-4/packages/contacts/www/contact.tcl	4 Mar 2006 23:54:40 -0000	1.34
+++ openacs-4/packages/contacts/www/contact.tcl	28 Nov 2006 17:33:41 -0000	1.35
@@ -49,7 +49,7 @@
 
 if { [string is false [empty_string_p [info procs "::application_data_link::get_linked"]]] } {
 
-    set project_id [lindex [application_data_link::get_linked -from_object_id $party_id -to_object_type "pm_project"] 0]
+    #set project_id [lindex [application_data_link::get_linked -from_object_id $party_id -to_object_type "pm_project"] 0]
     set dotlrn_club_id [lindex [application_data_link::get_linked -from_object_id $party_id -to_object_type "dotlrn_club"] 0]
 
     if {$project_id > 0 && $dotlrn_club_id <1} {
Index: openacs-4/packages/contacts/www/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/index.vuh,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/contacts/www/index.vuh	26 Jun 2006 06:36:52 -0000	1.17
+++ openacs-4/packages/contacts/www/index.vuh	28 Nov 2006 17:33:41 -0000	1.18
@@ -53,6 +53,7 @@
 	       create-club   { set file "create-club" }
                default       { set file [parameter::get -parameter "ContactSummaryViewTemplate" -default "/packages/contacts/www/contact"] }
            }
+
            set form_supplied_party_id [ns_queryget party_id] 
            if { [exists_and_not_null form_supplied_party_id] } {
                 if { $form_supplied_party_id != $party_id } {
Index: openacs-4/packages/contacts/www/message.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message.adp,v
diff -u -N -r1.25 -r1.26
--- openacs-4/packages/contacts/www/message.adp	28 Oct 2006 16:45:55 -0000	1.25
+++ openacs-4/packages/contacts/www/message.adp	28 Nov 2006 17:33:41 -0000	1.26
@@ -25,6 +25,7 @@
 		title=@title@
 		cc=@cc@	
 		bcc=@bcc@
+		to=@to@
 		context_id=@context_id@
 		object_od=@object_id@
 	        >
Index: openacs-4/packages/contacts/www/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message.tcl,v
diff -u -N -r1.34 -r1.35
--- openacs-4/packages/contacts/www/message.tcl	28 Oct 2006 16:45:55 -0000	1.34
+++ openacs-4/packages/contacts/www/message.tcl	28 Nov 2006 17:33:41 -0000	1.35
@@ -56,8 +56,14 @@
     }
 }
 
+set invalid_party_ids  [list]
+
 foreach id $party_ids {
-    contact::require_visiblity -party_id $id
+    if {[contact::visible_p -party_id $id -package_id [ad_conn package_id]]} {
+	lappend valid_party_ids $id
+    } else {
+	append invalid_party_ids $id
+    }
 }
 
 set party_count [llength $party_ids]
@@ -66,20 +72,21 @@
 set context [list $title]
 
 set recipients  [list]
-foreach party_id $party_ids {
+foreach party_id $valid_party_ids {
     set contact_name   [contact::name -party_id $party_id]
     set contact_url    [contact::url -party_id $party_id]
     set contact_link   "<a href=\"${contact_url}\">${contact_name}</a>"
     set sort_key       [string toupper $contact_name]
     # Check if the party has a valid e-mail address we can send to
     lappend recipients [list $contact_name $party_id $contact_link]
 }
+
 set sorted_recipients  [ams::util::sort_list_of_lists -list $recipients]
 set recipients         [list]
 set invalid_recipients [list]
 set party_ids          [list]
-set invalid_party_ids  [list]
 
+
 foreach recipient $sorted_recipients {
     set party_id       [lindex $recipient 1]
     set contact_link   [lindex $recipient 2]
@@ -122,36 +129,9 @@
         } 
 
     } else {
-
-	# Check if we can send a letter to this party
-	set letter_p  [contact::message::mailing_address_exists_p -party_id $party_id]
-
-        if { $letter_p } {
-            lappend party_ids $party_id
-            lappend recipients $contact_link
-        } elseif { [party::email -party_id $party_id] eq "" } {
-	    # We are going to check if there is an employee relationship
-	    # if there is we are going to check if the employer has an
-	    # email adrres, if it does we are going to use that address
-	    set employer_id [lindex [contact::util::get_employee_organization -employee_id $party_id] 0]
-
-	    if { ![empty_string_p $employer_id] } {
-		set emp_addr [contact::email -party_id $employer_id]
-		if { ![empty_string_p $emp_addr] } {
-		    lappend party_ids $employer_id
-		    lappend recipients $contact_link
-		} else {
-		    lappend invalid_party_ids $party_id
-		    lappend invalid_recipients $contact_link
-		}
-	    } else {
-		lappend invalid_party_ids $party_id
-		lappend invalid_recipients $contact_link
-	    }
-        } else {
-	    lappend party_ids $party_id
-            lappend recipients $contact_link
-        } 
+	# We are unsure what to send, so just assume for the time being we can send it to them
+	lappend party_ids $party_id
+	lappend recipients $contact_link
     }
 }