(gnus-write-active-file): Copy from Gnus 5.8.2.