I tweaked the food_consumption_display_message script to make it factor in foraging. Quite simply, it just subtracts the amount of food foraged from the :num_men divisor (and makes sure that the value is at least one), which has seemed to be accurate upon testing.
scripts.txt version...