lisp/gnus/nnvirtual.el

39 (require 'nnoo)
46 (nnoo-declare nnvirtual)
95 (nnoo-define-basics nnvirtual)
99 					     server fetch-old)
100   (when (nnvirtual-possibly-change-server server)
102       (set-buffer nntp-server-buffer)
116 		       (gnus-check-server
127 	      (set-buffer nntp-server-buffer)
139 				 (setq carticle (read nntp-server-buffer))
159 		  (princ article nntp-server-buffer)
167 	      (insert-buffer-substring nntp-server-buffer))
175 	  ;; the nntp-server-buffer, which is where Gnus expects to find
179 		(set-buffer nntp-server-buffer)
192 (deffoo nnvirtual-request-article (article &optional group server buffer)
193   (when (nnvirtual-possibly-change-server server)
199 	   'nnvirtual "Don't know what server to request from"))
217 	   'nnvirtual "Can't open server where %s exists" cgroup))
231 (deffoo nnvirtual-open-server (server &optional defs)
233     (push `(nnvirtual-component-regexp ,server)
235   (nnoo-change-server 'nnvirtual server defs)
254 	(nnheader-report 'nnvirtual "No component groups: %s" server)
258 (deffoo nnvirtual-request-group (group &optional server dont-check)
259   (nnvirtual-possibly-change-server server)
301 (deffoo nnvirtual-close-group (group &optional server)
302   (when (and (nnvirtual-possibly-change-server server)
308 (deffoo nnvirtual-request-list (&optional server)
312 (deffoo nnvirtual-request-newgroups (date &optional server)
316 (deffoo nnvirtual-request-list-newsgroups (&optional server)
320 (deffoo nnvirtual-request-update-info (group info &optional server)
321   (when (and (nnvirtual-possibly-change-server server)
335 (deffoo nnvirtual-catchup-group (group &optional server all)
336   (when (and (nnvirtual-possibly-change-server server)
359 (deffoo nnvirtual-request-post (&optional server)
369 						    &optional server force)
370   (nnvirtual-possibly-change-server server)
391     (set-buffer nntp-server-buffer)
401   "Edit current NOV header in current buffer to have an xref to the component group, and also server prefix any existing xref lines."
420   ;; component server prefix.
447 (defun nnvirtual-possibly-change-server (server)
448   (or (not server)
449       (nnoo-current-server-p 'nnvirtual server)
450       (nnvirtual-open-server server)))
656 	  (push new-a result))
713 		(push (list g (- max min -1) max) actives)
718 		  (push (cons 'cache
721 		(push (cons g unreads) all-unreads)
722 		(push (cons g marks) all-marks)
754       (push (vector M next-M cnt tot (- next-tot cnt))
793 	  (push (car marks) nnvirtual-mapping-marks))
808 	    (push i reads)
809 	  (push (cons beg i) reads))
813 	  (push i reads)
814 	(push (cons i nnvirtual-mapping-len) reads)))