Function: gnus-agent-total-fetched-for

gnus-agent-total-fetched-for is an autoloaded and byte-compiled function defined in gnus-agent.el.gz.

Signature

(gnus-agent-total-fetched-for GROUP &optional METHOD NO-INHIBIT)

Documentation

Get the total disk space used by the specified GROUP.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-agent.el.gz
(defun gnus-agent-total-fetched-for (group &optional method no-inhibit)
  "Get the total disk space used by the specified GROUP."
  (unless (equal group "dummy.group")
    (unless gnus-agent-total-fetched-hashtb
      (setq gnus-agent-total-fetched-hashtb
	    (gnus-make-hashtable 1000)))

    ;; if null, gnus-agent-group-pathname will calc method.
    (let* ((gnus-command-method method)
	   (path (gnus-agent-group-pathname group))
	   (entry (gethash path gnus-agent-total-fetched-hashtb)))
      (if entry
	  (apply #'+ entry)
	(let ((gnus-agent-inhibit-update-total-fetched-for (not no-inhibit)))
	  (+
	   (gnus-agent-update-view-total-fetched-for  group nil method path)
	   (gnus-agent-update-view-total-fetched-for  group t   method path)
	   (gnus-agent-update-files-total-fetched-for group nil method path)))))))