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

[Miles Bader]

Index: emacs/lisp/gnus/nnagent.el
diff -c emacs/lisp/gnus/nnagent.el:1.2 emacs/lisp/gnus/nnagent.el:1.3
*** emacs/lisp/gnus/nnagent.el:1.2      Tue Sep 19 09:37:09 2000
--- emacs/lisp/gnus/nnagent.el  Tue Feb  4 08:06:38 2003
***************
*** 67,73 ****
          (nnagent-active-file ,(gnus-agent-lib-file "active"))
          (nnagent-newsgroups-file ,(gnus-agent-lib-file "newsgroups"))
          (nnagent-get-new-mail nil)))
!   (nnoo-change-server 'nnagent 
                      (nnagent-server server)
                      defs)
    (let ((dir (gnus-agent-directory))
--- 67,73 ----
          (nnagent-active-file ,(gnus-agent-lib-file "active"))
          (nnagent-newsgroups-file ,(gnus-agent-lib-file "newsgroups"))
          (nnagent-get-new-mail nil)))
!   (nnoo-change-server 'nnagent
                      (nnagent-server server)
                      defs)
    (let ((dir (gnus-agent-directory))
***************
*** 155,187 ****
                    (list articles group (nnagent-server server) force)))
  
  (deffoo nnagent-request-list (&optional server)
!   (nnoo-parent-function 'nnagent 'nnml-request-list 
                    (list (nnagent-server server))))
  
  (deffoo nnagent-request-list-newsgroups (&optional server)
!   (nnoo-parent-function 'nnagent 'nnml-request-list-newsgroups 
                    (list (nnagent-server server))))
  
! (deffoo nnagent-request-move-article 
      (article group server accept-form &optional last)
!   (nnoo-parent-function 'nnagent 'nnml-request-move-article 
!                   (list article group (nnagent-server server) 
                          accept-form last)))
  
  (deffoo nnagent-request-rename-group (group new-name &optional server)
!   (nnoo-parent-function 'nnagent 'nnml-request-rename-group 
                    (list group new-name (nnagent-server server))))
  
  (deffoo nnagent-request-scan (&optional group server)
!   (nnoo-parent-function 'nnagent 'nnml-request-scan 
                    (list group (nnagent-server server))))
  
  (deffoo nnagent-retrieve-headers (sequence &optional group server fetch-old)
!   (nnoo-parent-function 'nnagent 'nnml-retrieve-headers 
                    (list sequence group (nnagent-server server) fetch-old)))
  
  (deffoo nnagent-set-status (article name value &optional group server)
!   (nnoo-parent-function 'nnagent 'nnml-set-status 
                    (list article name value group (nnagent-server server))))
  
  (deffoo nnagent-server-opened (&optional server)
--- 155,187 ----
                    (list articles group (nnagent-server server) force)))
  
  (deffoo nnagent-request-list (&optional server)
!   (nnoo-parent-function 'nnagent 'nnml-request-list
                    (list (nnagent-server server))))
  
  (deffoo nnagent-request-list-newsgroups (&optional server)
!   (nnoo-parent-function 'nnagent 'nnml-request-list-newsgroups
                    (list (nnagent-server server))))
  
! (deffoo nnagent-request-move-article
      (article group server accept-form &optional last)
!   (nnoo-parent-function 'nnagent 'nnml-request-move-article
!                   (list article group (nnagent-server server)
                          accept-form last)))
  
  (deffoo nnagent-request-rename-group (group new-name &optional server)
!   (nnoo-parent-function 'nnagent 'nnml-request-rename-group
                    (list group new-name (nnagent-server server))))
  
  (deffoo nnagent-request-scan (&optional group server)
!   (nnoo-parent-function 'nnagent 'nnml-request-scan
                    (list group (nnagent-server server))))
  
  (deffoo nnagent-retrieve-headers (sequence &optional group server fetch-old)
!   (nnoo-parent-function 'nnagent 'nnml-retrieve-headers
                    (list sequence group (nnagent-server server) fetch-old)))
  
  (deffoo nnagent-set-status (article name value &optional group server)
!   (nnoo-parent-function 'nnagent 'nnml-set-status
                    (list article name value group (nnagent-server server))))
  
  (deffoo nnagent-server-opened (&optional server)