Mercurial > emacs

comparison lisp/gnus/nnoo.el @ 90224:2d92f5c9d6ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-78 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 514-518) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 104-105) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 26 Aug 2005 09:51:52 +0000
parents f9a65d7ebd29 fafd692d1e40
children c5406394f567
comparison
equal deleted inserted replaced
90223:edf295560b5a 90224:2d92f5c9d6ae
1 ;;; nnoo.el --- OO Gnus Backends 1 ;;; nnoo.el --- OO Gnus Backends
2 2
3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
4 ;; Free Software Foundation, Inc. 4 ;; 2004, 2005 Free Software Foundation, Inc.
5 5
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
7 ;; Keywords: news 7 ;; Keywords: news
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
252 (when bstate 252 (when bstate
253 (setcar bstate nil) 253 (setcar bstate nil)
254 (setcdr bstate (delq defs (cdr bstate))) 254 (setcdr bstate (delq defs (cdr bstate)))
255 (pop defs) 255 (pop defs)
256 (while defs 256 (while defs
257 (set (car (pop defs)) nil))))) 257 (set (car (pop defs)) nil)))))
258 t) 258 t)
259 259
260 (defun nnoo-close (backend) 260 (defun nnoo-close (backend)
261 (setq nnoo-state-alist 261 (setq nnoo-state-alist
262 (delq (assq backend nnoo-state-alist) 262 (delq (assq backend nnoo-state-alist)