Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnoo.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children 131b0175ea99
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
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