2010-09-19 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * nnimap.el (nnimap-finish-retrieve-group-infos): Protect against
+ groups that have no articles.
+
+ * gnus-agent.el (gnus-agent-load-alist): Nix out the alist if the file
+ doesn't exist.
+
* nnimap.el (nnimap-finish-retrieve-group-infos): Return data in the
nntp buffer so the agent can save it.
(nnimap-open-shell-stream): Bind `process-connection-type' to nil, so
(let* ((gnus-agent-read-agentview group)
(file-name-coding-system nnmail-pathname-coding-system)
(agentview (gnus-agent-article-name ".agentview" group)))
- (when (file-exists-p agentview)
- (setq gnus-agent-article-alist
- (gnus-cache-file-contents
- agentview
- 'gnus-agent-file-loading-cache
- 'gnus-agent-read-agentview)))))
+ (setq gnus-agent-article-alist
+ (and (file-exists-p agentview)
+ (gnus-cache-file-contents
+ agentview
+ 'gnus-agent-file-loading-cache
+ 'gnus-agent-read-agentview)))))
(defun gnus-agent-read-agentview (file)
"Load FILE and do a `read' there."
(local (or local (gnus-agent-load-local)))
(symb (intern gmane local))
(minmax (and (boundp symb) (symbol-value symb))))
-
(if (cond ((and minmax
(or (not (eq min (car minmax)))
(not (eq max (cdr minmax))))
(dolist (info infos)
(let* ((group (gnus-info-group info))
(active (gnus-active group)))
- (insert (format "%S %d %d y\n"
- (gnus-group-real-name group)
- (cdr active)
- (car active)))))))))
+ (when active
+ (insert (format "%S %d %d y\n"
+ (gnus-group-real-name group)
+ (cdr active)
+ (car active))))))))))
(defun nnimap-update-infos (flags infos)
(dolist (info infos)