- (push (caar alist) done)
- (cdr (setq server (pop alist)))
- (when (and server (car server) (cdr server))
- (gnus-server-insert-server-line (car server) (cdr server))))
+ (unless (member (cdar alist) done)
+ (push (cdar alist) done)
+ (cdr (setq server (pop alist)))
+ (when (and server (car server) (cdr server))
+ (gnus-server-insert-server-line (car server) (cdr server)))))