lisp/gnus/nnslashdot.el

32 (require 'nnoo)
40 (nnoo-declare nnslashdot)
84 (nnoo-define-basics nnslashdot)
86 (deffoo nnslashdot-retrieve-headers (articles &optional group server fetch-old)
87   (nnslashdot-possibly-change-server group server)
119 	  (push
140 		(push s startats)))
176 	    (push
200       (set-buffer nntp-server-buffer)
207 (deffoo nnslashdot-request-group (group &optional server dont-check)
208   (nnslashdot-possibly-change-server nil server)
219 (deffoo nnslashdot-close-group (group &optional server)
220   (nnslashdot-possibly-change-server group server)
227 (deffoo nnslashdot-request-article (article &optional group server buffer)
228   (nnslashdot-possibly-change-server group server)
268 	(set-buffer (or buffer nntp-server-buffer))
284 (deffoo nnslashdot-close-server (&optional server)
285   (when (and (nnslashdot-server-opened server)
290   (nnoo-close-server 'nnslashdot server))
292 (deffoo nnslashdot-request-list (&optional server)
293   (nnslashdot-possibly-change-server nil server)
320 		(push (list gname articles sid (current-time) nil)
344 		    (push (list gname articles sid (current-time) nil)
352 (deffoo nnslashdot-request-newgroups (date &optional server)
353   (nnslashdot-possibly-change-server nil server)
357 (deffoo nnslashdot-request-post (&optional server)
358   (nnslashdot-possibly-change-server nil server)
406 (deffoo nnslashdot-request-delete-group (group &optional force server)
407   (nnslashdot-possibly-change-server group server)
417     (articles group &optional server force)
418   (nnslashdot-possibly-change-server group server)
434 (nnoo-define-skeleton nnslashdot)
438 (defun nnslashdot-possibly-change-server (&optional group server)
439   (nnslashdot-init server)
440   (when (and server
441 	     (not (nnslashdot-server-opened server)))
442     (nnslashdot-open-server server))
472 (defun nnslashdot-init (server)
480 	     (format " *nnslashdot %s*" server))))
481     (push nnslashdot-buffer gnus-buffers)))
496     (set-buffer nntp-server-buffer)