* mail-source.el (make-source-make-complex-temp-name): Use