Mercurial > hg > xemacs-beta
comparison lisp/gnus/gnus-srvr.el @ 112:48d667d6f17f r20-1b8
Import from CVS: tag r20-1b8
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:20:48 +0200 |
| parents | 360340f9fd5f |
| children | 9f59509498e1 |
comparison
equal
deleted
inserted
replaced
| 111:164ab62060bf | 112:48d667d6f17f |
|---|---|
| 209 (while alist | 209 (while alist |
| 210 (unless (member (cdar alist) done) | 210 (unless (member (cdar alist) done) |
| 211 (push (cdar alist) done) | 211 (push (cdar alist) done) |
| 212 (cdr (setq server (pop alist))) | 212 (cdr (setq server (pop alist))) |
| 213 (when (and server (car server) (cdr server)) | 213 (when (and server (car server) (cdr server)) |
| 214 (gnus-server-insert-server-line (car server) (cdr server))))) | 214 (gnus-server-insert-server-line (car server) (cdr server)))) |
| 215 (when (member (cdar alist) done) | |
| 216 (pop alist))) | |
| 215 ;; Then we insert the list of servers that have been opened in | 217 ;; Then we insert the list of servers that have been opened in |
| 216 ;; this session. | 218 ;; this session. |
| 217 (while opened | 219 (while opened |
| 218 (unless (member (caar opened) done) | 220 (unless (member (caar opened) done) |
| 219 (push (caar opened) done) | 221 (push (caar opened) done) |