+ ;; Transform the select method into a unique server.
+ (let ((saddr (intern (format "%s-address" (car method)))))
+ (setq method (gnus-copy-sequence method))
+ (unless (assq saddr method)
+ (nconc method `((,saddr ,(cadr method)))))
+ (setf (cadr method) (format "%s-%d" (cadr method)
+ (incf gnus-ephemeral-group-server))))