[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nnoo.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nnoo.el [lexbind] |
Date: |
Wed, 15 Sep 2004 20:34:40 -0400 |
Index: emacs/lisp/gnus/nnoo.el
diff -c emacs/lisp/gnus/nnoo.el:1.6.8.1 emacs/lisp/gnus/nnoo.el:1.6.8.2
*** emacs/lisp/gnus/nnoo.el:1.6.8.1 Tue Oct 14 23:34:51 2003
--- emacs/lisp/gnus/nnoo.el Thu Sep 16 00:12:16 2004
***************
*** 1,6 ****
;;; nnoo.el --- OO Gnus Backends
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,6 ----
;;; nnoo.el --- OO Gnus Backends
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 38,44 ****
"The same as `defvar', only takes list of variables to MAP to."
`(prog1
,(if doc
! `(defvar ,var ,init ,doc)
`(defvar ,var ,init))
(nnoo-define ',var ',map)))
(put 'defvoo 'lisp-indent-function 2)
--- 38,44 ----
"The same as `defvar', only takes list of variables to MAP to."
`(prog1
,(if doc
! `(defvar ,var ,init ,(concat doc "\n\nThis is a Gnus server
variable. See Info node `(gnus)Select Methods'."))
`(defvar ,var ,init))
(nnoo-define ',var ',map)))
(put 'defvoo 'lisp-indent-function 2)
***************
*** 201,208 ****
(while (setq def (pop defs))
(unless (assq (car def) bvariables)
(nconc bvariables
! (list (cons (car def) (and (boundp (car def))
! (symbol-value (car def)))))))
(if (equal server "*internal-non-initialized-backend*")
(set (car def) (symbol-value (cadr def)))
(set (car def) (cadr def)))))
--- 201,208 ----
(while (setq def (pop defs))
(unless (assq (car def) bvariables)
(nconc bvariables
! (list (cons (car def) (and (boundp (car def))
! (symbol-value (car def)))))))
(if (equal server "*internal-non-initialized-backend*")
(set (car def) (symbol-value (cadr def)))
(set (car def) (cadr def)))))
***************
*** 254,260 ****
(setcdr bstate (delq defs (cdr bstate)))
(pop defs)
(while defs
! (set (car (pop defs)) nil)))))
t)
(defun nnoo-close (backend)
--- 254,260 ----
(setcdr bstate (delq defs (cdr bstate)))
(pop defs)
(while defs
! (set (car (pop defs)) nil)))))
t)
(defun nnoo-close (backend)
***************
*** 304,309 ****
--- 304,323 ----
(&rest args)
(nnheader-report ',backend ,(format "%s-%s not implemented"
backend function))))))))
+
+ (defun nnoo-set (server &rest args)
+ (let ((parents (nnoo-parents (car server)))
+ (nnoo-parent-backend (car server)))
+ (while parents
+ (nnoo-change-server (caar parents)
+ (cadr server)
+ (cdar parents))
+ (pop parents)))
+ (nnoo-change-server (car server)
+ (cadr server) (cddr server))
+ (while args
+ (set (pop args) (pop args))))
+
(provide 'nnoo)
;;; arch-tag: 0196b5ed-6f34-4778-a455-73a971f837e7
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nnoo.el [lexbind],
Miles Bader <=