67 |
(nnagent-active-file ,(gnus-agent-lib-file "active")) |
(nnagent-active-file ,(gnus-agent-lib-file "active")) |
68 |
(nnagent-newsgroups-file ,(gnus-agent-lib-file "newsgroups")) |
(nnagent-newsgroups-file ,(gnus-agent-lib-file "newsgroups")) |
69 |
(nnagent-get-new-mail nil))) |
(nnagent-get-new-mail nil))) |
70 |
(nnoo-change-server 'nnagent |
(nnoo-change-server 'nnagent |
71 |
(nnagent-server server) |
(nnagent-server server) |
72 |
defs) |
defs) |
73 |
(let ((dir (gnus-agent-directory)) |
(let ((dir (gnus-agent-directory)) |
155 |
(list articles group (nnagent-server server) force))) |
(list articles group (nnagent-server server) force))) |
156 |
|
|
157 |
(deffoo nnagent-request-list (&optional server) |
(deffoo nnagent-request-list (&optional server) |
158 |
(nnoo-parent-function 'nnagent 'nnml-request-list |
(nnoo-parent-function 'nnagent 'nnml-request-list |
159 |
(list (nnagent-server server)))) |
(list (nnagent-server server)))) |
160 |
|
|
161 |
(deffoo nnagent-request-list-newsgroups (&optional server) |
(deffoo nnagent-request-list-newsgroups (&optional server) |
162 |
(nnoo-parent-function 'nnagent 'nnml-request-list-newsgroups |
(nnoo-parent-function 'nnagent 'nnml-request-list-newsgroups |
163 |
(list (nnagent-server server)))) |
(list (nnagent-server server)))) |
164 |
|
|
165 |
(deffoo nnagent-request-move-article |
(deffoo nnagent-request-move-article |
166 |
(article group server accept-form &optional last) |
(article group server accept-form &optional last) |
167 |
(nnoo-parent-function 'nnagent 'nnml-request-move-article |
(nnoo-parent-function 'nnagent 'nnml-request-move-article |
168 |
(list article group (nnagent-server server) |
(list article group (nnagent-server server) |
169 |
accept-form last))) |
accept-form last))) |
170 |
|
|
171 |
(deffoo nnagent-request-rename-group (group new-name &optional server) |
(deffoo nnagent-request-rename-group (group new-name &optional server) |
172 |
(nnoo-parent-function 'nnagent 'nnml-request-rename-group |
(nnoo-parent-function 'nnagent 'nnml-request-rename-group |
173 |
(list group new-name (nnagent-server server)))) |
(list group new-name (nnagent-server server)))) |
174 |
|
|
175 |
(deffoo nnagent-request-scan (&optional group server) |
(deffoo nnagent-request-scan (&optional group server) |
176 |
(nnoo-parent-function 'nnagent 'nnml-request-scan |
(nnoo-parent-function 'nnagent 'nnml-request-scan |
177 |
(list group (nnagent-server server)))) |
(list group (nnagent-server server)))) |
178 |
|
|
179 |
(deffoo nnagent-retrieve-headers (sequence &optional group server fetch-old) |
(deffoo nnagent-retrieve-headers (sequence &optional group server fetch-old) |
180 |
(nnoo-parent-function 'nnagent 'nnml-retrieve-headers |
(nnoo-parent-function 'nnagent 'nnml-retrieve-headers |
181 |
(list sequence group (nnagent-server server) fetch-old))) |
(list sequence group (nnagent-server server) fetch-old))) |
182 |
|
|
183 |
(deffoo nnagent-set-status (article name value &optional group server) |
(deffoo nnagent-set-status (article name value &optional group server) |
184 |
(nnoo-parent-function 'nnagent 'nnml-set-status |
(nnoo-parent-function 'nnagent 'nnml-set-status |
185 |
(list article name value group (nnagent-server server)))) |
(list article name value group (nnagent-server server)))) |
186 |
|
|
187 |
(deffoo nnagent-server-opened (&optional server) |
(deffoo nnagent-server-opened (&optional server) |