Lines Matching defs:nnagent
0 ;;; nnagent.el --- offline backend for Gnus
36 (nnoo-declare nnagent
42 (defconst nnagent-version "nnagent 1.0")
44 (defvoo nnagent-directory nil
48 (defvoo nnagent-active-file nil
52 (defvoo nnagent-newsgroups-file nil
56 (defvoo nnagent-get-new-mail nil
62 (nnoo-define-basics nnagent)
64 (defun nnagent-server (server)
67 (deffoo nnagent-open-server (server &optional defs)
69 `((nnagent-directory ,(gnus-agent-directory))
70 (nnagent-active-file ,(gnus-agent-lib-file "active"))
71 (nnagent-newsgroups-file ,(gnus-agent-lib-file "newsgroups"))
72 (nnagent-get-new-mail nil)))
73 (nnoo-change-server 'nnagent
74 (nnagent-server server)
82 (nnagent-close-server)
84 'nnagent (or err
87 (nnagent-close-server)
88 (nnheader-report 'nnagent "Not a directory: %s" dir))
90 (nnheader-report 'nnagent "Opened server %s using directory %s"
94 (deffoo nnagent-retrieve-groups (groups &optional server)
105 (defun nnagent-request-type (group article)
114 (deffoo nnagent-request-newgroups (date server)
117 (deffoo nnagent-request-update-info (group info &optional server)
120 (deffoo nnagent-request-post (&optional server)
124 (deffoo nnagent-request-set-mark (group action server)
137 (deffoo nnagent-retrieve-headers (articles &optional group server fetch-old)
182 (deffoo nnagent-request-expire-articles (articles group &optional server force)
185 (deffoo nnagent-request-group (group &optional server dont-check)
186 (nnoo-parent-function 'nnagent 'nnml-request-group
187 (list group (nnagent-server server) dont-check)))
189 (deffoo nnagent-close-group (group &optional server)
190 (nnoo-parent-function 'nnagent 'nnml-close-group
191 (list group (nnagent-server server))))
193 (deffoo nnagent-request-accept-article (group &optional server last)
194 (nnoo-parent-function 'nnagent 'nnml-request-accept-article
195 (list group (nnagent-server server) last)))
197 (deffoo nnagent-request-article (id &optional group server buffer)
198 (nnoo-parent-function 'nnagent 'nnml-request-article
199 (list id group (nnagent-server server) buffer)))
201 (deffoo nnagent-request-create-group (group &optional server args)
202 (nnoo-parent-function 'nnagent 'nnml-request-create-group
203 (list group (nnagent-server server) args)))
205 (deffoo nnagent-request-delete-group (group &optional force server)
206 (nnoo-parent-function 'nnagent 'nnml-request-delete-group
207 (list group force (nnagent-server server))))
209 (deffoo nnagent-request-list (&optional server)
210 (nnoo-parent-function 'nnagent 'nnml-request-list
211 (list (nnagent-server server))))
213 (deffoo nnagent-request-list-newsgroups (&optional server)
214 (nnoo-parent-function 'nnagent 'nnml-request-list-newsgroups
215 (list (nnagent-server server))))
217 (deffoo nnagent-request-move-article
219 (nnoo-parent-function 'nnagent 'nnml-request-move-article
220 (list article group (nnagent-server server)
223 (deffoo nnagent-request-rename-group (group new-name &optional server)
224 (nnoo-parent-function 'nnagent 'nnml-request-rename-group
225 (list group new-name (nnagent-server server))))
227 (deffoo nnagent-request-scan (&optional group server)
228 (nnoo-parent-function 'nnagent 'nnml-request-scan
229 (list group (nnagent-server server))))
231 (deffoo nnagent-set-status (article name value &optional group server)
232 (nnoo-parent-function 'nnagent 'nnml-set-status
233 (list article name value group (nnagent-server server))))
235 (deffoo nnagent-server-opened (&optional server)
236 (nnoo-parent-function 'nnagent 'nnml-server-opened
237 (list (nnagent-server server))))
239 (deffoo nnagent-status-message (&optional server)
240 (nnoo-parent-function 'nnagent 'nnml-status-message
241 (list (nnagent-server server))))
243 (deffoo nnagent-request-regenerate (server)
244 (nnoo-parent-function 'nnagent 'nnml-request-regenerate
245 (list (nnagent-server server))))
248 (nnoo-import nnagent
255 (provide 'nnagent)
258 ;;; nnagent.el ends here