Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-srvr.el @ 28:1917ad0d78d7 r19-15b97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b97
author cvs
date Mon, 13 Aug 2007 08:51:55 +0200
parents 441bb1e64a06
children ec9a17fef872
comparison
equal deleted inserted replaced
27:0a3286277d9b 28:1917ad0d78d7
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 (unless (member (caar alist) done) 210 (unless (member (cdar alist) done)
211 (push (caar 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 ;; 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
216 ;; this session. 216 ;; this session.
217 (while opened 217 (while opened
218 (unless (member (cadaar opened) done) 218 (unless (member (caar opened) done)
219 (push (cadaar opened) done) 219 (push (caar opened) done)
220 (gnus-server-insert-server-line 220 (gnus-server-insert-server-line
221 (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))))
222 (caar opened)) 222 (caar opened))
223 (push (list op-ser (caar opened)) gnus-inserted-opened-servers)) 223 (push (list op-ser (caar opened)) gnus-inserted-opened-servers))
224 (setq opened (cdr opened)))) 224 (setq opened (cdr opened))))