Lines Matching +defs:close +defs:group
37 (autoload 'gnus-agent-regenerate-group "gnus-agent")
42 :group 'gnus-start
52 :group 'gnus-start
137 (defun gnus-check-group (group)
139 (let ((method (gnus-find-method-for-group group)))
283 (defun gnus-close-server (gnus-command-method)
287 (funcall (gnus-get-function gnus-command-method 'close-server)
323 If GNUS-COMMAND-METHOD is a string, it is interpreted as a group
324 name. The method this group uses will be queried."
327 (gnus-find-method-for-group gnus-command-method)
339 (defun gnus-request-group (group &optional dont-check gnus-command-method)
342 (or gnus-command-method (inline (gnus-find-method-for-group group)))))
346 (funcall (inline (gnus-get-function gnus-command-method 'request-group))
347 (gnus-group-real-name group) (nth 1 gnus-command-method)
350 (defun gnus-list-active-group (group)
352 (let ((gnus-command-method (gnus-find-method-for-group group))
353 (func 'list-active-group))
354 (when (gnus-check-backend-function func group)
356 (gnus-group-real-name group) (nth 1 gnus-command-method)))))
358 (defun gnus-request-group-description (group)
360 (let ((gnus-command-method (gnus-find-method-for-group group))
361 (func 'request-group-description))
362 (when (gnus-check-backend-function func group)
364 (gnus-group-real-name group) (nth 1 gnus-command-method)))))
366 (defun gnus-request-group-articles (group)
368 (let ((gnus-command-method (gnus-find-method-for-group group))
369 (func 'request-group-articles))
370 (when (gnus-check-backend-function func group)
372 (gnus-group-real-name group) (nth 1 gnus-command-method)))))
374 (defun gnus-close-group (group)
376 (let ((gnus-command-method (inline (gnus-find-method-for-group group))))
377 (funcall (gnus-get-function gnus-command-method 'close-group)
378 (gnus-group-real-name group) (nth 1 gnus-command-method))))
380 (defun gnus-retrieve-headers (articles group &optional fetch-old)
382 If FETCH-OLD, retrieve all headers (or some subset thereof) in the group."
383 (let ((gnus-command-method (gnus-find-method-for-group group)))
386 (gnus-cache-retrieve-headers articles group fetch-old))
389 (gnus-agent-retrieve-headers articles group fetch-old))
392 articles (gnus-group-real-name group)
395 (defun gnus-retrieve-articles (articles group)
397 (let ((gnus-command-method (gnus-find-method-for-group group)))
399 articles (gnus-group-real-name group)
409 (defun gnus-request-type (group &optional article)
411 (let ((gnus-command-method (gnus-find-method-for-group group)))
416 (gnus-group-real-name group) article))))
418 (defun gnus-request-set-mark (group action)
420 (let ((gnus-command-method (gnus-find-method-for-group group)))
425 (gnus-group-real-name group) action
428 (defun gnus-request-update-mark (group article mark)
430 (let ((gnus-command-method (gnus-find-method-for-group group)))
435 (gnus-group-real-name group) article mark))))
437 (defun gnus-request-article (article group &optional buffer)
440 If BUFFER, insert the article in that group."
441 (let ((gnus-command-method (gnus-find-method-for-group group)))
443 article (gnus-group-real-name group)
446 (defun gnus-request-head (article group)
448 (let* ((gnus-command-method (gnus-find-method-for-group group))
455 (gnus-cache-request-article article group))
456 (setq res (cons group article)
459 ((gnus-agent-request-article article group)
460 (setq res (cons group article)
464 (setq res (funcall head article (gnus-group-real-name group)
468 (setq res (gnus-request-article article group)
479 (defun gnus-request-body (article group)
481 (let* ((gnus-command-method (gnus-find-method-for-group group))
488 (gnus-cache-request-article article group))
489 (setq res (cons group article)
492 ((gnus-agent-request-article article group)
493 (setq res (cons group article)
497 (setq res (funcall head article (gnus-group-real-name group)
501 (setq res (gnus-request-article article group)
518 (defun gnus-request-scan (group gnus-command-method)
522 (if group (gnus-find-method-for-group group) gnus-command-method))
529 (and group (gnus-group-real-name group))
538 (let ((group (gnus-info-group info)))
541 (gnus-group-real-name group)
546 (let* ((active (gnus-active group))
555 (defun gnus-request-expire-articles (articles group &optional force)
556 (let* ((gnus-command-method (gnus-find-method-for-group group))
560 articles (gnus-group-real-name group) (nth 1 gnus-command-method)
566 (gnus-agent-expire expired-articles group 'force))))
569 (defun gnus-request-move-article (article group server accept-function
571 (let* ((gnus-command-method (gnus-find-method-for-group group))
574 article (gnus-group-real-name group)
578 (gnus-agent-unfetch-articles group (list article)))
581 (defun gnus-request-accept-article (group &optional gnus-command-method last
587 (stringp group))
588 (setq gnus-command-method (or (gnus-find-method-for-group group)
589 (gnus-group-name-to-method group))))
602 (gnus-find-method-for-group group)))
606 (if (stringp group) (gnus-group-real-name group) group)
610 (gnus-agent-regenerate-group group (list (cdr result))))
613 (defun gnus-request-replace-article (article group buffer &optional no-encode)
622 (let* ((func (car (gnus-group-name-to-method group)))
624 article (gnus-group-real-name group) buffer)))
626 (gnus-agent-regenerate-group group (list article)))
629 (defun gnus-request-associate-buffer (group)
630 (let ((gnus-command-method (gnus-find-method-for-group group)))
632 (gnus-group-real-name group))))
634 (defun gnus-request-restore-buffer (article group)
636 (let ((gnus-command-method (gnus-find-method-for-group group)))
638 article (gnus-group-real-name group)
641 (defun gnus-request-create-group (group &optional gnus-command-method args)
645 (or gnus-command-method (gnus-find-method-for-group group))))
646 (funcall (gnus-get-function gnus-command-method 'request-create-group)
647 (gnus-group-real-name group) (nth 1 gnus-command-method) args)))
649 (defun gnus-request-delete-group (group &optional force)
650 (let* ((gnus-command-method (gnus-find-method-for-group group))
652 (funcall (gnus-get-function gnus-command-method 'request-delete-group)
653 (gnus-group-real-name group) force (nth 1 gnus-command-method))))
655 (gnus-cache-delete-group group)
656 (gnus-agent-delete-group group))
659 (defun gnus-request-rename-group (group new-name)
660 (let* ((gnus-command-method (gnus-find-method-for-group group))
662 (funcall (gnus-get-function gnus-command-method 'request-rename-group)
663 (gnus-group-real-name group)
664 (gnus-group-real-name new-name) (nth 1 gnus-command-method))))
666 (gnus-cache-rename-group group new-name)
667 (gnus-agent-rename-group group new-name))
670 (defun gnus-close-backends ()
671 ;; Send a close request to all backends that support such a request.
678 "-request-close"))))