Someone

gui.tcl, line 7989

    proc MessagesReceived { oim_messages  } {
		variable oimlist
		foreach oim $oim_messages {
			foreach {email nick MsgId} $oim break
			set oim_message [::MSNOIM::getOIMMessage $MsgId]
			if { $oim_message == "" } { 
				status_log "\[OIM\]Unable to fetch message from $nick <$email>; MsgId is $MsgId"
			} else {
				lappend oimlist $oim_message
			}
		}
		#oldest are first
		lsort -command SortOIMs $oimlist
		foreach oim_message $oimlist {
			DisplayOIM $oim_message
		}
		#and remove then
		foreach oim_message $oimlist {
			foreach {email nick MsgId} $oim break
			if { [::MSNOIM::deleteOIMMessage $MsgId] == 0 } {
				status_log "\[OIM\]Unable to delete message from $nick <$email>; MsgId is $MsgId"
			}
		}
    }


INTO :

    proc MessagesReceived { oim_messages  } {
		variable oimlist
		foreach oim $oim_messages {
			foreach {email nick MsgId} $oim break
			set oim_message [::MSNOIM::getOIMMessage $MsgId]
			if { $oim_message == "" } { 
				status_log "\[OIM\]Unable to fetch message from $nick <$email>; MsgId is $MsgId"
			} else {
				lappend oimlist $oim_message
				if { [::MSNOIM::deleteOIMMessage $MsgId] == 0 } {
					status_log "\[OIM\]Unable to delete message from $nick <$email>; MsgId is $MsgId"
				}
			}
		}
		#oldest are first
		lsort -command SortOIMs $oimlist
		foreach oim_message $oimlist {
			DisplayOIM $oim_message
		}
    }