Index: openacs-4/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/forums/tcl/messages-procs.tcl	13 Jan 2005 13:58:16 -0000	1.30
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	26 Mar 2005 20:29:20 -0000	1.31
@@ -184,11 +184,15 @@
         set query select_message_with_attachment
     }
 
-    db_1row $query {} -column_array row
-
-    # Convert to user's date/time format
-    set row(posting_date_ansi) [lc_time_system_to_conn $row(posting_date_ansi)]
-    set row(posting_date_pretty) [lc_time_fmt $row(posting_date_ansi) "%x %X"]
+    if {![db_0or1row $query {} -column_array row]} {
+        if {[array exists row]} {
+            array unset row
+        }
+    } else {
+        # Convert to user's date/time format
+        set row(posting_date_ansi) [lc_time_system_to_conn $row(posting_date_ansi)]
+        set row(posting_date_pretty) [lc_time_fmt $row(posting_date_ansi) "%x %X"]
+    }
 }
 
 ad_proc -private forum::message::set_state {