Index: openacs-4/packages/contacts/www/message-action.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message-action.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/www/message-action.tcl	30 Jun 2005 00:07:49 -0000	1.1
+++ openacs-4/packages/contacts/www/message-action.tcl	6 Jul 2005 23:40:25 -0000	1.2
@@ -39,7 +39,7 @@
     }
     owner_valid -requires {owner_id} {
         if { [exists_and_not_null owner_id] } {
-            if { $owner_id == [ad_conn package_id] || ( [contact::exists_p -party_id $owner_id] && [contact::type -party_id $owner_id] == "person" ) } {
+            if { $owner_id == [ad_conn package_id] || ( [contact::exists_p -party_id $owner_id] && [lsearch [list person user] [contact::type -party_id $owner_id]] >= 0 ) } {
             } else {
                 ad_complain [_ contacts.The_owner_id_specified_is_not_valid]
             }