Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnoo.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 15872534500d
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
205 (push (cons (caar defs) (symbol-value (caar defs))) 205 (push (cons (caar defs) (symbol-value (caar defs)))
206 state) 206 state)
207 (pop defs)) 207 (pop defs))
208 (nconc bstate (list (cons current state)))))) 208 (nconc bstate (list (cons current state))))))
209 209
210 (defun nnoo-current-server-p (backend server) 210 (defsubst nnoo-current-server-p (backend server)
211 (equal (nnoo-current-server backend) server)) 211 (equal (nnoo-current-server backend) server))
212 212
213 (defun nnoo-current-server (backend) 213 (defun nnoo-current-server (backend)
214 (nth 1 (assq backend nnoo-state-alist))) 214 (nth 1 (assq backend nnoo-state-alist)))
215 215