Index: openacs-4/packages/contacts/www/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/contacts/www/message.tcl	9 Aug 2005 12:44:19 -0000	1.12
+++ openacs-4/packages/contacts/www/message.tcl	24 Aug 2005 10:50:07 -0000	1.13
@@ -161,7 +161,8 @@
 
     set public_text [_ contacts.Public]
     set package_id [ad_conn package_id]
-
+    set letter_options ""
+    set email_options ""
     db_foreach get_messages {
 	select CASE WHEN owner_id = :package_id THEN :public_text ELSE contact__name(owner_id) END as public_display,
 	title,
@@ -178,6 +179,7 @@
 	    lappend ${message_type}_options [list "$public_display:$title" "$item_id"]
 	}
     }
+
     set message_options [concat \
 			     $message_options \
 			     $letter_options \