[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nnagent.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nnagent.el |
Date: |
Fri, 04 Apr 2003 01:22:15 -0500 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nnagent.el,
Miles Bader <=