lisp/gnus/nnultimate.el

35 (require 'nnoo)
46 (nnoo-declare nnultimate)
65 (nnoo-define-basics nnultimate)
67 (deffoo nnultimate-retrieve-headers (articles &optional group server fetch-old)
68   (nnultimate-possibly-change-server group server)
105 	      (push (list (nth 2 mmap)
116 	    (set-buffer nntp-server-buffer)
147 		  (push (list (or (nnultimate-topic-article-to-article
155 		  (push (list (car art)
196 	  (push
204 		     "@ultimate." server ">")
216 	  (set-buffer nntp-server-buffer)
233 (deffoo nnultimate-request-group (group &optional server dont-check)
234   (nnultimate-possibly-change-server nil server)
253 (deffoo nnultimate-request-article (article &optional group server buffer)
254   (nnultimate-possibly-change-server group server)
259 	(set-buffer (or buffer nntp-server-buffer))
270 (deffoo nnultimate-request-list (&optional server)
271   (nnultimate-possibly-change-server nil server)
299 	      (push (list group articles forum description nil nil nil nil)
305 (deffoo nnultimate-request-newgroups (date &optional server)
306   (nnultimate-possibly-change-server nil server)
310 (nnoo-define-skeleton nnultimate)
353 		(push href furls))))
385 	      (push (list topic garticles subject href) topics)
402 (defun nnultimate-possibly-change-server (&optional group server)
403   (nnultimate-init server)
404   (when (and server
405 	     (not (nnultimate-server-opened server)))
406     (nnultimate-open-server server))
412 (deffoo nnultimate-open-server (server &optional defs connectionless)
413   (nnheader-init-server-buffer)
414   (if (nnultimate-server-opened server)
417       (setq defs (append defs (list (list 'nnultimate-address server)))))
418     (nnoo-change-server 'nnultimate server defs)))
433   (push (cons nnultimate-address nnultimate-groups)
438 (defun nnultimate-init (server)
445     (set-buffer nntp-server-buffer)