Function: gnus-agent-update-view-total-fetched-for

gnus-agent-update-view-total-fetched-for is a byte-compiled function defined in gnus-agent.el.gz.

Signature

(gnus-agent-update-view-total-fetched-for GROUP AGENT-OVER &optional METHOD PATH)

Documentation

Update, or set, the total disk space used by the .agentview and
.overview files. These files are calculated separately as they can be
modified.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-agent.el.gz
(defun gnus-agent-update-view-total-fetched-for
    (group agent-over &optional method path)
  "Update, or set, the total disk space used by the .agentview and
.overview files.  These files are calculated separately as they can be
modified."
  (when gnus-agent-total-fetched-hashtb
    (gnus-agent-with-refreshed-group
     group
     ;; if null, gnus-agent-group-pathname will calc method.
     (let* ((gnus-command-method method)
	    (path (or path (gnus-agent-group-pathname group)))
	    (entry (or (gethash path gnus-agent-total-fetched-hashtb)
		       (puthash path (make-list 3 0)
				gnus-agent-total-fetched-hashtb)))
	    (file-name-coding-system nnmail-pathname-coding-system)
	    (size (or (file-attribute-size (file-attributes
					    (nnheader-concat
					     path (if agent-over
						      ".overview"
						    ".agentview"))))
		      0)))
       (setq gnus-agent-need-update-total-fetched-for t)
       (setf (nth (if agent-over 1 0) entry) size)))))