Index: openacs-4/packages/webmail/tcl/wm-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/tcl/wm-util-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/webmail/tcl/wm-util-procs.tcl	26 Feb 2005 16:00:10 -0000	1.2
+++ openacs-4/packages/webmail/tcl/wm-util-procs.tcl	1 Mar 2005 00:01:45 -0000	1.3
@@ -239,7 +239,7 @@
     set mailbox_list [ad_get_client_property -default "" webmail mailbox_list]
     if { [empty_string_p $mailbox_list] } {
 	if { [empty_string_p $user_id] } {
-	    set user_id [ad_verify_and_get_user_id]
+	    set user_id [ad_conn user_id]
 	}
 	set mailbox_list [db_list_of_lists wm_mailbox_name_ids {
 	    SELECT mailbox_id, name FROM wm_mailboxes