ごめん、ちゃんとテストしなかった。
`((,(regexp-opt '(...)) r) . hide)
こんな感じで。

ところで、car が文字列の要素が連続したら messafe-filter-subr 側で
regexp-opt しちゃえばいいじゃん、と思って試してみたら、俺の環境では
かえって遅くなってしまった。
人間様がきちんとメンテしなきゃいけないのはいまいちだと思うんだが、
いい方法ないかな。