emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/nnoo.el


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/nnoo.el
Date: Sat, 04 Sep 2004 09:28:34 -0400

Index: emacs/lisp/gnus/nnoo.el
diff -c emacs/lisp/gnus/nnoo.el:1.7 emacs/lisp/gnus/nnoo.el:1.8
*** emacs/lisp/gnus/nnoo.el:1.7 Mon Sep  1 15:45:24 2003
--- emacs/lisp/gnus/nnoo.el     Sat Sep  4 13:13:44 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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]