Lines Matching +defs:all +defs:headers
79 (defcustom gnus-agent-expire-all nil
150 (defcustom gnus-agent-consider-all-articles nil
152 whether articles need to be downloaded or not, for all articles. When
192 "Initially, all servers from these methods are agentized.
233 "An assoc list identifying the articles whose headers have been fetched.
234 If successfully fetched, these headers will be stored in the group's overview
240 routines (for example, get-agent-fetch-headers) use the last
241 value to track which articles have had their headers retrieved.
256 (defvar gnus-headers)
445 "Save all data structures and clean up."
628 "Close all methods covered by the Gnus agent."
664 minor mode in all Gnus buffers."
738 (message-narrow-to-headers)
771 "Put all new articles in the current groups into the Agent."
778 "Put all new articles in GROUP into the Agent."
1091 (headers (sort (mapcar (lambda (h)
1093 gnus-newsgroup-headers) '<))
1099 (while (and alist headers)
1101 (h (car headers)))
1108 ;; fictious (see nnagent-retrieve-headers); they
1112 (setq headers (cdr headers)))
1115 (setq headers (cdr headers))
1120 (setq headers (cdr headers))
1130 (while headers
1131 (let ((num (pop headers)))
1139 "Mark as read all unhandled articles.
1180 (defun gnus-agent-summary-fetch-group (&optional all)
1182 Optional arg ALL, if non-nil, means to fetch all articles."
1185 (if all gnus-newsgroup-articles
1479 (headers (if (< (length articles) 2) nil gnus-newsgroup-headers))
1493 ;; Skip headers preceeding this article
1496 (let* ((header (car headers)))
1500 (setq headers (cdr headers)))
1513 (car headers))))
1521 (car headers)))
1757 (defun gnus-agent-fetch-headers (group &optional force)
1758 "Fetch interesting headers into the agent. The group's overview
1759 file will be updated to include the headers while a list of available
1761 (let* ((fetch-all (and gnus-agent-consider-all-articles
1762 ;; Do not fetch all headers if the predicate
1767 (articles (if fetch-all
1773 (unless fetch-all
1774 ;; Add articles with marks to the list of article headers we want to
1788 ;; filter this list to just those articles whose headers need to
1796 (if fetch-all
1797 ;; I want to fetch all headers in the active range.
1798 ;; Therefore, exclude only those headers that are in the
1804 ;; I want to only fetch those headers that have never been
1805 ;; fetched. Therefore, exclude all headers that are, or
1816 ;; indicates that no headers need to be fetched. -- Kevin
1821 10 "gnus-agent-fetch-headers: undownloaded articles are '%s'"
1829 (gnus-message 7 "Fetching headers for %s..." group)
1835 (unless (eq 'nov (gnus-retrieve-headers articles group))
1836 (nnvirtual-convert-headers))
1838 ;; Move these headers to the overview buffer so that
1896 Takes unvalidated headers for ARTICLES from
1897 `gnus-agent-overview-buffer' and validated headers from the given
1898 FILE and places the combined valid headers into
2054 (all prev)
2068 (setq gnus-agent-article-alist (cdr all))
2263 "Fetch all articles and headers that are eligible for fetching."
2310 (gnus-newsgroup-headers gnus-newsgroup-headers)
2319 gnus-headers
2327 ;; Fetch headers.
2347 (setq articles (gnus-agent-fetch-headers group))
2357 (setq gnus-newsgroup-headers
2358 (or gnus-newsgroup-headers
2359 (gnus-get-newsgroup-headers-xover articles nil nil
2380 (setq score-param (gnus-all-score-files group)))
2385 (gnus-score-headers score-param))))
2393 (gnus-newsgroup-headers gnus-newsgroup-headers))
2394 (while (setq gnus-headers (pop gnus-newsgroup-headers))
2395 (let ((num (mail-header-number gnus-headers)))
2436 ;; Fetch all selected articles
2466 ;; When some, or all, of the marked articles came
2598 (kill-all-local-variables)
2788 "List all categories."
2816 (if (not (equal (mail-header-references gnus-headers) ""))
2818 (let ((string (gnus-simplify-subject (mail-header-subject gnus-headers))))
2825 (< (mail-header-lines gnus-headers) gnus-agent-short-article))
2829 (> (mail-header-lines gnus-headers) gnus-agent-long-article))
2841 (gnus-member-of-range (mail-header-number gnus-headers)
2920 (t ; if all arguments return only unread articles
2933 t) ; The false predicate returns t as the empty set excludes all read articles
2960 "Expire all old articles in GROUP.
2965 if ARTICLES is null, all read and unmarked articles.
2966 if ARTICLES is t, all articles.
2989 "expire all articles in " group "? ")))
3037 ;; headers when using nntp in the backend. At
3046 (cond (gnus-agent-expire-all
3071 (cond (gnus-agent-expire-all
3157 ;; At this point, all of the information is in dlist. The
3288 ;; If considering all articles is set, I can only
3292 (if (and gnus-agent-consider-all-articles
3347 "Expire all old articles.
3352 if ARTICLES is null, all read and unmarked articles.
3353 if ARTICLES is t, all articles.
3362 (yes-or-no-p "Are you sure that you want to expire all \
3369 ;; expiration statistics across all groups
3570 (defun gnus-agent-retrieve-headers (articles group &optional fetch-old)
3579 ;; Populate temp buffer with known headers
3590 ;; Populate nntp-server-buffer with uncached headers
3594 (gnus-retrieve-headers
3596 (nnvirtual-convert-headers))
3598 ;; The author of gnus-get-newsgroup-headers-xover
3608 ;; article ID N implies that all articles from 1
3632 ;; Clip this list to the headers that will
3666 ;; Merge the temp buffer with the known headers (found on
3671 ;; Save the new set of known headers to FILE
3712 (gnus-kill-all-overlays)
3719 If REREAD is t, all articles in the .overview are marked as unread.
3722 the articles' current headers.
3739 (message "Mark as unread: (n)one / (a)ll / all (d)ownloaded articles? (n) ")
3821 ;; in the .overview file. As a side-effect, missing headers are
3859 ;; When gnus-agent-consider-all-articles is set,
3864 ;; When gnus-agent-consider-all-articles is NOT set,
3872 (if gnus-agent-consider-all-articles
3873 ;; Restore all article IDs that were not found in the overview file.
3948 "Regenerate all agent covered files.