Index: openacs-4/packages/chat/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-procs.tcl,v
diff -u -N -r1.5.2.5 -r1.5.2.6
--- openacs-4/packages/chat/tcl/chat-procs.tcl	12 Apr 2006 18:16:55 -0000	1.5.2.5
+++ openacs-4/packages/chat/tcl/chat-procs.tcl	25 Apr 2006 10:43:50 -0000	1.5.2.6
@@ -118,9 +118,12 @@
                     }
                 }
 
-                if [catch {chat_post_message_to_db -creation_user $user_id $room_id $msg} errmsg] {
-                    ns_log error "chat_post_message_to_db: error: $errmsg"
-                }
+				chat_room_get -room_id $room_id -array room_info
+				if { $room_info(archive_p) eq "t" } { 
+					if [catch {chat_post_message_to_db -creation_user $user_id $room_id $msg} errmsg] {
+						ns_log error "chat_post_message_to_db: error: $errmsg"
+					}
+				}
 
                 nsv_lappend chat_room $room_id $line