[O] fold all drawers in a buffer?

[Matt Price]

Is there a command to fold all drawers in a buffer (all property
drawers would be enough, actually)? Or a suggestion for how to do
this?   Thanks!
Matt