Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-srvr.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children 1917ad0d78d7
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
205 done server op-ser) 205 done server op-ser)
206 (erase-buffer) 206 (erase-buffer)
207 (setq gnus-inserted-opened-servers nil) 207 (setq gnus-inserted-opened-servers nil)
208 ;; First we do the real list of servers. 208 ;; First we do the real list of servers.
209 (while alist 209 (while alist
210 (push (caar alist) done) 210 (unless (member (caar alist) done)
211 (cdr (setq server (pop alist))) 211 (push (caar alist) done)
212 (when (and server (car server) (cdr server)) 212 (cdr (setq server (pop alist)))
213 (gnus-server-insert-server-line (car server) (cdr server)))) 213 (when (and server (car server) (cdr server))
214 (gnus-server-insert-server-line (car server) (cdr server)))))
214 ;; Then we insert the list of servers that have been opened in 215 ;; Then we insert the list of servers that have been opened in
215 ;; this session. 216 ;; this session.
216 (while opened 217 (while opened
217 (unless (member (cadaar opened) done) 218 (unless (member (cadaar opened) done)
218 (push (cadaar opened) done) 219 (push (cadaar opened) done)