mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Update to emacs-21-branch of the Gnus CVS repository.

Browse source
This commit is contained in:
Gerd Moellmann 2000-09-19 13:37:09 +00:00
parent ce9ded5de2
commit 16409b0bb8
65 changed files with 10738 additions and 5960 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/gnus/nnoo.el
View file

@ -1,5 +1,7 @@
;;; nnoo.el --- OO Gnus Backends
;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
;; Copyright (C) 1996, 1997, 1998, 1999, 2000
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
@ -105,11 +107,11 @@
(cdr (assq pbackend (nnoo-parents backend))))
(prog1
(apply function args)
;; Copy the changed variables back into the child.
(let ((vars (cdr (assq pbackend (nnoo-parents backend)))))
(while vars
(set (cadar vars) (symbol-value (caar vars)))
(setq vars (cdr vars)))))))
;; Copy the changed variables back into the child.
(let ((vars (cdr (assq pbackend (nnoo-parents backend)))))
(while vars
(set (cadar vars) (symbol-value (caar vars)))
(setq vars (cdr vars)))))))
(defun nnoo-execute (backend function &rest args)
"Execute FUNCTION on behalf of BACKEND."