projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* gnus-agent.el (gnus-agent-get-undownloaded-list): Include the
[gnus]
/
lisp
/
gnus-agent.el
diff --git
a/lisp/gnus-agent.el
b/lisp/gnus-agent.el
index
f4f3cca
..
983af55
100644
(file)
--- a/
lisp/gnus-agent.el
+++ b/
lisp/gnus-agent.el
@@
-757,7
+757,11
@@
article's mark is toggled."
(cond ((< a h)
(pop alist)) ; ignore IDs in the alist that are not being displayed in the summary
((> a h)
(cond ((< a h)
(pop alist)) ; ignore IDs in the alist that are not being displayed in the summary
((> a h)
- (pop headers)) ; ignore headers that are not in the alist as these should be fictious (see nnagent-retrieve-headers).
+ ;; headers that are not in the alist should be
+ ;; fictious (see nnagent-retrieve-headers); they
+ ;; imply that this article isn't in the agent.
+ (gnus-agent-append-to-list tail h)
+ (pop headers))
((cdar alist)
(pop alist)
(pop headers)
((cdar alist)
(pop alist)
(pop headers)
@@
-767,6
+771,11
@@
article's mark is toggled."
(pop alist)
(pop headers)
(gnus-agent-append-to-list tail a)))))
(pop alist)
(pop headers)
(gnus-agent-append-to-list tail a)))))
+
+ (while headers
+ (let ((h (mail-header-number (car headers))))
+ (pop headers)
+ (gnus-agent-append-to-list tail h)))
(setq gnus-newsgroup-undownloaded (cdr undownloaded))))))
(defun gnus-agent-catchup ()
(setq gnus-newsgroup-undownloaded (cdr undownloaded))))))
(defun gnus-agent-catchup ()