Mercurial > hg > xemacs-beta
comparison lisp/gnus/gnus-srvr.el @ 34:d620409f5eb8 r19-15b100
Import from CVS: tag r19-15b100
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:53:20 +0200 |
| parents | ec9a17fef872 |
| children | 8b8b7f3559a2 |
comparison
equal
deleted
inserted
replaced
| 33:9ee3cade837d | 34:d620409f5eb8 |
|---|---|
| 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) |