/[emacs]/emacs/lisp/gnus/nnagent.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnagent.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by gerd, Tue Sep 19 13:37:09 2000 UTC revision 1.3 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 67  Line 67 
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))
# Line 155  Line 155 
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)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26