mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

* gnus-agent.el (gnus-agent-update-files-total-fetched-for): Don't bug out

Browse source 
if the directory doesn't exist.
This commit is contained in:
Lars Ingebrigtsen 2014-03-07 16:00:34 +01:00
parent 162427fe6a
commit 84254bbdf0
2 changed files with 28 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2014-03-07 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-agent.el (gnus-agent-update-files-total-fetched-for): Don't bug
out if the directory doesn't exist.
2014-03-05 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-group.el (gnus-group-make-group): Clarify prompt.

44
lisp/gnus/gnus-agent.el
View file

@ -4121,8 +4121,8 @@ CLEAN is obsolete and ignored."
(defun gnus-agent-group-covered-p (group)
(gnus-agent-method-p (gnus-group-method group)))
(defun gnus-agent-update-files-total-fetched-for
(group delta &optional method path)
(defun gnus-agent-update-files-total-fetched-for (group delta
&optional method path)
"Update, or set, the total disk space used by the articles that the
agent has fetched."
(when gnus-agent-total-fetched-hashtb
@ -4135,27 +4135,29 @@ agent has fetched."
(gnus-sethash path (make-list 3 0)
gnus-agent-total-fetched-hashtb)))
(file-name-coding-system nnmail-pathname-coding-system))
(when (listp delta)
(if delta
(let ((sum 0.0)
(when (file-exists-p path)
(when (listp delta)
(if delta
(let ((sum 0.0)
file)
(while (setq file (pop delta))
(incf sum (float (or (nth 7 (file-attributes
(nnheader-concat
path
(if (numberp file)
(number-to-string file)
file)))) 0))))
(setq delta sum))
(let ((sum (- (nth 2 entry)))
(info (directory-files-and-attributes
path nil "^-?[0-9]+$" t))
file)
(while (setq file (pop delta))
(incf sum (float (or (nth 7 (file-attributes
(nnheader-concat
path
(if (numberp file)
(number-to-string file)
file)))) 0))))
(setq delta sum))
(let ((sum (- (nth 2 entry)))
(info (directory-files-and-attributes path nil "^-?[0-9]+$" t))
file)
(while (setq file (pop info))
(incf sum (float (or (nth 8 file) 0))))
(setq delta sum))))
(while (setq file (pop info))
(incf sum (float (or (nth 8 file) 0))))
(setq delta sum))))
(setq gnus-agent-need-update-total-fetched-for t)
(incf (nth 2 entry) delta)))))
(setq gnus-agent-need-update-total-fetched-for t)
(incf (nth 2 entry) delta))))))
(defun gnus-agent-update-view-total-fetched-for
(group agent-over &optional method path)