Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-srvr.el @ 104:cf808b4c4290 r20-1b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b4
author cvs
date Mon, 13 Aug 2007 09:16:51 +0200
parents 4be1180a9e89
children 360340f9fd5f
comparison
equal deleted inserted replaced
103:30eda07fe280 104:cf808b4c4290
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 (cdar alist) done)
211 (cdr (setq server (pop alist))) 211 (push (cdar 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 (caar opened) done)
218 (push (cadaar opened) done) 219 (push (caar opened) done)
219 (gnus-server-insert-server-line 220 (gnus-server-insert-server-line
220 (setq op-ser (format "%s:%s" (caaar opened) (nth 1 (caar opened)))) 221 (setq op-ser (format "%s:%s" (caaar opened) (nth 1 (caar opened))))
221 (caar opened)) 222 (caar opened))
222 (push (list op-ser (caar opened)) gnus-inserted-opened-servers)) 223 (push (list op-ser (caar opened)) gnus-inserted-opened-servers))
223 (setq opened (cdr opened)))) 224 (setq opened (cdr opened))))