/[emacs]/emacs/lisp/gnus/nnoo.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnoo.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6.14.1 by handa, Fri Mar 12 00:03:11 2004 UTC revision 1.6.14.2 by miles, Thu Sep 9 09:36:26 2004 UTC
# Line 1  Line 1 
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>
# Line 38  Line 38 
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)
# Line 201  Line 201 
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)))))
# Line 254  Line 254 
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)
# Line 304  All functions will return nil and report Line 304  All functions will return nil and report
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

Legend:
Removed from v.1.6.14.1  
changed lines
  Added in v.1.6.14.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26