If you are using this proc, or another acknowledgement proc, in an IB thread and would like to modify it the same way here are the instructions:
In the beginning of the proc, right after getting the message handle:
set mh [keylget args MSGID] ;# Message header
add this code:
# If this message was resent (as opposed to received
# by a protocol driver), don’t send an ACK.
set flags [msgmetaget $mh FLAGS]
if { “[lsearch -exact $flags is_resent]” ne “-1” } {
return “{CONTINUE $mh}”
}