1 |
;;; nnoo.el --- OO Gnus Backends |
;;; nnoo.el --- OO Gnus Backends |
2 |
|
|
3 |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000 |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
38 |
"The same as `defvar', only takes list of variables to MAP to." |
"The same as `defvar', only takes list of variables to MAP to." |
39 |
`(prog1 |
`(prog1 |
40 |
,(if doc |
,(if doc |
41 |
`(defvar ,var ,init ,doc) |
`(defvar ,var ,init ,(concat doc "\n\nThis is a Gnus server variable. See Info node `(gnus)Select Methods'.")) |
42 |
`(defvar ,var ,init)) |
`(defvar ,var ,init)) |
43 |
(nnoo-define ',var ',map))) |
(nnoo-define ',var ',map))) |
44 |
(put 'defvoo 'lisp-indent-function 2) |
(put 'defvoo 'lisp-indent-function 2) |
201 |
(while (setq def (pop defs)) |
(while (setq def (pop defs)) |
202 |
(unless (assq (car def) bvariables) |
(unless (assq (car def) bvariables) |
203 |
(nconc bvariables |
(nconc bvariables |
204 |
(list (cons (car def) (and (boundp (car def)) |
(list (cons (car def) (and (boundp (car def)) |
205 |
(symbol-value (car def))))))) |
(symbol-value (car def))))))) |
206 |
(if (equal server "*internal-non-initialized-backend*") |
(if (equal server "*internal-non-initialized-backend*") |
207 |
(set (car def) (symbol-value (cadr def))) |
(set (car def) (symbol-value (cadr def))) |
208 |
(set (car def) (cadr def))))) |
(set (car def) (cadr def))))) |
254 |
(setcdr bstate (delq defs (cdr bstate))) |
(setcdr bstate (delq defs (cdr bstate))) |
255 |
(pop defs) |
(pop defs) |
256 |
(while defs |
(while defs |
257 |
(set (car (pop defs)) nil))))) |
(set (car (pop defs)) nil))))) |
258 |
t) |
t) |
259 |
|
|
260 |
(defun nnoo-close (backend) |
(defun nnoo-close (backend) |
304 |
(&rest args) |
(&rest args) |
305 |
(nnheader-report ',backend ,(format "%s-%s not implemented" |
(nnheader-report ',backend ,(format "%s-%s not implemented" |
306 |
backend function)))))))) |
backend function)))))))) |
307 |
|
|
308 |
|
(defun nnoo-set (server &rest args) |
309 |
|
(let ((parents (nnoo-parents (car server))) |
310 |
|
(nnoo-parent-backend (car server))) |
311 |
|
(while parents |
312 |
|
(nnoo-change-server (caar parents) |
313 |
|
(cadr server) |
314 |
|
(cdar parents)) |
315 |
|
(pop parents))) |
316 |
|
(nnoo-change-server (car server) |
317 |
|
(cadr server) (cddr server)) |
318 |
|
(while args |
319 |
|
(set (pop args) (pop args)))) |
320 |
|
|
321 |
(provide 'nnoo) |
(provide 'nnoo) |
322 |
|
|
323 |
;;; arch-tag: 0196b5ed-6f34-4778-a455-73a971f837e7 |
;;; arch-tag: 0196b5ed-6f34-4778-a455-73a971f837e7 |