Lines Matching +defs:cached +defs:articles
45 (autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
52 "Deuglify broken Outlook (Express) articles and redisplay."
70 will attempt to grab the headers to the old articles, and thereby
141 unrelated articles that have subject that happen to begin with the
184 headers of the articles to find matches."
277 If nil, articles that have different subjects from their parents will
287 If this variable is nil, articles in the same thread with different
289 variable is `fuzzy', only articles that have subjects that are fuzzily
315 If you want to prevent automatic selection of articles in some
364 If there are no more articles with the same subject, go to
370 "*Says how to handle unfetched articles when maneuvering.
373 article), `undownloaded' (maneuvering while unplugged ignores articles
375 ignores articles that have not been fetched), `unfetched' (maneuvering
376 ignores articles whose headers have not been fetched).
378 NOTE: The list of unfetched articles will always be nil when plugged
414 "*If non-nil, ignore articles with identical Message-ID headers."
419 "*If non-nil, display all articles in the same buffer.
425 "*If non-nil, do page breaking on articles.
432 "*Variable used to suggest where articles are to be moved to.
445 "*Mark used for unread articles."
450 "*Mark used for ticked articles."
455 "*Mark used for dormant articles."
460 "*Mark used for del'd articles."
465 "*Mark used for read articles."
470 "*Mark used for expirable articles."
475 "*Mark used for killed articles."
480 "*Mark used for spam articles."
486 "*Mark used for souped articles."
491 "*Mark used for articles killed by kill files."
496 "*Mark used for articles with a low score."
501 "*Mark used for articles that are caught up."
506 "*Mark used for articles that have been replied to."
511 "*Mark used for articles that have been forwarded."
517 "*Mark used for articles that are recent."
522 (defcustom gnus-cached-mark ?*
523 "*Mark used for articles that are in the cache."
528 "*Mark used for articles that have been saved."
533 "*Mark used for articles that haven't been seen."
539 "*Mark used for articles that have no other secondary mark."
545 "*Mark used for ancient articles."
550 "*Mark used for sparsely reffed articles."
555 "*Mark used for canceled articles."
560 "*Mark used for duplicate articles."
565 "*Mark used for articles that weren't downloaded."
571 "*Mark used for articles that were downloaded."
576 "*Mark used for articles that are to be downloaded."
581 "*Mark used for articles that won't be sent."
586 "*Score mark used for articles with high scores."
591 "*Score mark used for articles with low scores."
606 "*If non-nil, Gnus will view pseudo-articles asynchronously."
626 "*If `automatic', pseudo-articles will be viewed automatically.
641 (defcustom gnus-insert-pseudo-articles t
642 "*If non-nil, insert pseudo-articles when decoding articles."
670 %U Number of unread articles in the group
671 %e Number of unselected articles in the group
677 %d Number of dormant articles
678 %r Number of articles that have been marked as read in this session
679 %E Number of articles expunged by the score files"
694 "*Mark all articles with a score below this variable as read.
701 "*List of functions used for sorting articles in the summary buffer.
703 Each function takes two articles and returns non-nil if the first
718 controls how articles are sorted."
750 `gnus-article-sort-functions' controls how articles are sorted."
772 "All articles that have a score less than this variable will be expunged.
985 default-high: The default score for high scored articles.
986 default-low: The default score for low scored articles.
987 below: The score below which articles are automatically marked as read.
1085 (defcustom gnus-alter-articles-to-read-function nil
1086 "Function to be called to alter the list of articles to be selected."
1123 Set it to non-nil, Gnus will treat some articles as MIME even if
1155 "Function called to sort the articles within a thread after it has been gathered together.")
1211 (?t (gnus-summary-number-of-articles-in-thread
1214 (?e (gnus-summary-number-of-articles-in-thread
1275 "Sorted list of unread articles in the current newsgroup.")
1278 "Sorted list of unselected unread articles in the current newsgroup.")
1281 "Alist of read articles and article marks in the current newsgroup.")
1286 "Sorted list of ticked articles in the current newsgroup (a subset of unread art).")
1289 "List of ranges of articles that have been marked as spam.")
1292 "List of ranges of articles that have been through the scoring process.")
1294 (defvar gnus-newsgroup-cached nil
1295 "Sorted list of articles that come from the article cache.")
1298 "List of articles that have been saved.")
1303 "List of articles that have been replied to in the current newsgroup.")
1306 "List of articles that have been forwarded in the current newsgroup.")
1309 "List of articles that have are recent in the current newsgroup.")
1312 "Sorted list of articles in the current newsgroup that can be expired.")
1315 "List of articles in the current newsgroup that can be processed.")
1318 "Sorted list of articles in the current newsgroup that can be processed.")
1321 "Sorted list of articles in the current newsgroup whose headers have
1327 "List of articles in the current newsgroup that haven't been downloaded.")
1330 "List of articles in the current newsgroup that won't be sent.")
1333 "List of articles in the current newsgroup that have bookmarks.")
1336 "Sorted list of dormant articles in the current newsgroup.")
1339 "List of unseen articles in the current newsgroup.")
1342 "Range of seen articles in the current newsgroup.")
1344 (defvar gnus-newsgroup-articles nil
1345 "List of articles in the current newsgroup.")
1348 "List of scored articles in the current newsgroup.")
1359 "List of `gnus-fetch-old-headers' articles in the current newsgroup.")
1392 gnus-newsgroup-seen gnus-newsgroup-articles
1411 gnus-cache-removable-articles gnus-newsgroup-cached
1787 "n" gnus-summary-limit-to-articles
1795 "*" gnus-summary-limit-include-cached
1806 "o" gnus-summary-insert-old-articles
1807 "N" gnus-summary-insert-new-articles)
1846 "c" gnus-summary-insert-cached-articles
1847 "d" gnus-summary-insert-dormant-articles)
1986 "e" gnus-summary-expire-articles
1987 "\M-\C-e" gnus-summary-expire-articles-now
2273 '(:help "Copying, moving, expiring articles..."))
2293 'request-expire-articles gnus-newsgroup-name)]
2296 ["Delete expirable articles" gnus-summary-expire-articles-now
2298 'request-expire-articles gnus-newsgroup-name)])
2320 ["Fetch referenced articles" gnus-summary-refer-references t]
2425 '(:help "Mark unread articles in this group as read"))]
2450 ["Next or process marked articles" gnus-summary-limit-to-articles t]
2527 ["Insert cached articles" gnus-summary-insert-cached-articles t]
2528 ["Insert dormant articles" gnus-summary-insert-dormant-articles t]
2530 ["See old articles" gnus-summary-insert-old-articles t]
2531 ["See new articles" gnus-summary-insert-new-articles t]
2532 ["Filter articles..." gnus-summary-execute-command t]
2533 ["Run command on articles..." gnus-summary-universal-argument t]
2534 ["Search articles forward..." gnus-summary-search-article-forward t]
2535 ["Search articles backward..." gnus-summary-search-article-backward t]
2538 ["Expire expirable articles" gnus-summary-expire-articles
2540 'request-expire-articles gnus-newsgroup-name)]
2549 '(:help "Mark unread articles in this group as read, then exit"))]
2602 (gnus-summary-insert-new-articles "mail/inbox" nil
2627 :visible (gnus-check-backend-function 'request-expire-articles
2673 ;; (gnus-summary-insert-new-articles "gnus/paste" nil :visible nil)
2811 "Major mode for reading articles.
2817 and backwards while displaying articles, type `\\[gnus-summary-next-unread-article]' and `\\[gnus-summary-prev-unread-article]',
2820 You can also post articles and send mail from this buffer. To
3148 marks of articles."
3174 "Compute the positions of all articles."
3481 ((memq gnus-tmp-current gnus-newsgroup-cached)
3482 gnus-cached-mark)
3565 (defun gnus-summary-number-of-articles-in-thread (thread &optional level char)
3566 "Return the number of articles in THREAD.
3567 This may be 0 in some cases -- if none of the articles in
3577 'gnus-summary-number-of-articles-in-thread (cdr thread))))
3586 'gnus-summary-number-of-articles-in-thread
3624 select-articles)
3626 If SHOW-ALL is non-nil, already read articles are also listed.
3636 select-articles)
3638 select-articles nil)))))
3653 &optional select-articles)
3663 group show-all select-articles))))
3695 ;; The user did a `C-g' while prompting for number of articles,
3745 ;; articles or some excluded dormants, we include these in the
3767 ;; work with hidden articles.
3784 ;; Don't select any articles.
3839 (gnus-sort-articles gnus-newsgroup-headers))))
4011 ;; articles, so they're roots.
4060 ;; additional Xrefs (in case the two articles came from different
4152 ;; Look at all the articles that refer back to old articles, and
4153 ;; fetch the headers for the articles that aren't there. This will
4487 (defun gnus-articles-in-thread (thread)
4488 "Return the list of articles in THREAD."
4490 (apply 'nconc (mapcar 'gnus-articles-in-thread (cdr thread)))))
4607 (defun gnus-sort-articles (articles)
4610 (gnus-message 7 "Sorting articles...")
4613 (sort articles (gnus-make-sort-function
4615 (gnus-message 7 "Sorting articles...done"))))
4628 "Sort articles by article number."
4638 "Sort articles by article number."
4647 "Sort articles by article Lines header."
4657 "Sort articles by octet length."
4667 "Sort articles by root author."
4684 "Sort articles by root subject."
4695 "Sort articles by root article date."
4706 "Sort articles by root article score.
4707 Unscored articles will be counted as having a score of zero."
4722 Unscored articles will be counted as having a score of zero."
4925 ;; We print adopted articles with empty subject fields.
4977 ;; Don't touch sparse articles.
5050 ((memq number gnus-newsgroup-cached)
5051 gnus-cached-mark)
5152 ;; We may have to root out some bad articles...
5182 "Remove list identifiers in `gnus-list-identifiers' from articles in the current group."
5207 (defun gnus-fetch-headers (articles)
5215 articles gnus-newsgroup-name
5221 (> (length articles) 1))
5224 articles nil nil gnus-newsgroup-name t)
5228 (defun gnus-select-newsgroup (group &optional read-all select-articles)
5230 If READ-ALL is non-nil, all articles in the group are selected.
5231 If SELECT-ARTICLES, only select those articles from GROUP."
5239 articles fetched-articles cached)
5270 gnus-newsgroup-unreads (gnus-list-of-unread-articles group))
5277 ;; all articles.
5286 ;; articles (which is slow), so instead we hack the
5287 ;; select-articles parameter instead. -- Simon Josefsson
5293 (setq select-articles
5306 ;; Kludge to avoid having cached articles nixed out in virtual groups.
5308 (setq cached gnus-newsgroup-cached))
5318 (gnus-update-read-articles group gnus-newsgroup-unreads)
5322 (gnus-adjust-marked-articles info))
5323 (if (setq articles select-articles)
5325 (gnus-sorted-difference gnus-newsgroup-unreads articles))
5326 (setq articles (gnus-articles-to-read group read-all)))
5329 ((null articles)
5330 ;;(gnus-message 3 "Couldn't select newsgroup -- no articles to display")
5332 ((eq articles 0) nil)
5336 (gnus-make-hashtable (length articles)))
5340 (setq gnus-newsgroup-headers (gnus-fetch-headers articles))
5342 ;; Kludge to avoid having cached articles nixed out in virtual groups.
5343 (when cached
5344 (setq gnus-newsgroup-cached cached))
5348 (gnus-dup-suppress-articles))
5351 (setq gnus-newsgroup-limit (copy-sequence articles))
5352 ;; Remove canceled articles from the list of unread articles.
5353 (setq fetched-articles
5356 (setq gnus-newsgroup-articles fetched-articles)
5359 gnus-newsgroup-unreads fetched-articles))
5362 ;; Removed marked articles that do not exist.
5364 (gnus-sorted-difference articles fetched-articles))
5371 ;; Let the Gnus agent mark articles as read.
5396 (setq gnus-newsgroup-unseen gnus-newsgroup-articles)
5399 gnus-newsgroup-articles gnus-newsgroup-seen))))
5453 (memq article gnus-newsgroup-cached))
5462 (defun gnus-articles-to-read (group &optional read-all)
5463 "Find out what articles the user wants to read."
5464 (let* ((articles
5465 ;; Select all articles if `read-all' is non-nil, or if there
5466 ;; are no unread articles.
5472 ;; We want to select the headers for all the articles in
5474 ;; articles in the group, or (if that's nil), the
5475 ;; articles in the cache.
5478 (gnus-cache-articles-in-group group))
5479 ;; Select only the "normal" subset of articles.
5483 (scored-list (gnus-killed-articles gnus-newsgroup-killed articles))
5485 (number (length articles))
5506 "How many articles from %s (%s %d): "
5521 "How many articles from"
5528 (message "Quit getting the articles to read")
5535 (setq articles (sort scored-list '<))
5536 (setq number (length articles)))
5537 (setq articles (copy-sequence articles)))
5541 ;; Select the N oldest articles.
5542 (setcdr (nthcdr (1- (abs select)) articles) nil)
5543 ;; Select the N most recent articles.
5544 (setq articles (nthcdr (- number select) articles))))
5546 (gnus-sorted-difference gnus-newsgroup-unreads articles))
5547 (when gnus-alter-articles-to-read-function
5548 (setq articles
5550 (funcall gnus-alter-articles-to-read-function
5551 gnus-newsgroup-name articles)
5553 articles)))
5555 (defun gnus-killed-articles (killed articles)
5557 (while articles
5558 (when (inline (gnus-member-of-range (car articles) killed))
5559 (push (car articles) out))
5560 (setq articles (cdr articles)))
5583 (defun gnus-adjust-marked-articles (info)
5590 marks var articles article mark mark-type
5599 ;; and then adjust the marks to a subset of the active articles.
5608 (setq articles (if (numberp (cddr marks))
5614 (while (setq article (pop articles))
5627 (set var (setq articles (cdr marks)))
5630 (when (not (listp (cdr articles)))
5631 (setq articles (list articles)))
5632 (while articles
5633 (when (or (not (consp (setq article (pop articles))))
5645 (setq articles (cdr marks))
5646 (while (and articles
5647 (or (and (consp (car articles))
5648 (> min (cdar articles)))
5649 (and (numberp (car articles))
5650 (> min (car articles)))))
5651 (pop articles))
5652 (set var articles))))))))
5655 "Go through the list of MISSING articles and remove them from the mark lists."
5663 ;; This list has articles. So we delete all missing
5664 ;; articles from it.
5670 "Enter the various lists of marked articles into the newsgroup info list."
5682 ;; Get rid of the entries of the articles that have the
5865 (gnus-group-make-articles-read name idlist))))
5868 (defun gnus-compute-read-articles (group articles)
5876 (let ((ids articles)
5888 ;; of articles in some groups. Tsk, tsk.
5892 (setq articles (delq id articles))))))
5899 ;; Then we add the read articles to the range.
5901 ninfo (setq articles (sort articles '<))))))
5903 (defun gnus-group-make-articles-read (group articles)
5911 (setq range (gnus-compute-read-articles group articles))
5918 (gnus-get-unread-articles-in-group ',info (gnus-active ,group))
5921 ;; Add the read articles to the range.
5925 ;; articles there are in this group.
5940 ;; Update the number of unread articles.
6112 ;; Get the Xref when the users reads the articles since most/some
6249 (defun gnus-summary-work-articles (n)
6250 "Return a list of articles to be worked upon.
6251 The prefix argument, the list of process marked articles, and the
6261 articles article)
6266 articles)
6271 (nreverse articles)))
6276 articles article)
6281 (push (setq article (gnus-summary-article-number)) articles)
6284 (nreverse articles))))
6286 ;; There are process-marked articles present.
6296 "Iterate over the process/prefixed articles and do FORMS.
6298 executed with point over the summary line of the articles."
6299 (let ((articles (make-symbol "gnus-summary-iterate-articles")))
6300 `(let ((,articles (gnus-summary-work-articles ,arg)))
6301 (while ,articles
6302 (gnus-summary-goto-subject (car ,articles))
6304 (pop ,articles)))))
6310 "Push the current set of process marked articles on the stack."
6316 "Push the current set of process marked articles on the stack and unmark."
6329 "Make SET into the current process marked articles."
6430 (articles (gnus-data-list backward))
6431 (arts (gnus-data-find-list article articles))
6452 If UNREAD, look for unread articles. If SUBJECT, look for
6453 articles with that subject. If BACKWARD, search backward instead."
6533 ;; difference between the ranges of read articles in this group and
6534 ;; the range of active articles.
6535 (defun gnus-list-of-unread-articles (group)
6543 ;; If the range of read articles is a single range, then the
6564 ;; And add the last unread articles.
6568 ;; Return the list of unread articles.
6571 (defun gnus-list-of-read-articles (group)
6572 "Return a list of unread, unticked and non-dormant articles."
6581 (gnus-list-of-unread-articles group))
6586 ;; difference between the ranges of read articles in this group and
6587 ;; the range of active articles.
6588 (defun gnus-sequence-of-unread-articles (group)
6596 ;; If the range of read articles is a single range, then the
6615 ;; And add the last unread articles.
6622 ;; Return the sequence of unread articles.
6636 "Perform any operation on all articles that are process/prefixed."
6638 (let ((articles (gnus-summary-work-articles arg))
6650 (while articles
6651 (gnus-summary-goto-subject (setq article (pop articles)))
6668 The current article is considered, then following articles, then previous
6669 articles. An article is sought which is not cancelled and isn't a temporary
6685 The prefix argument ALL means to select all articles."
6703 "Exit the newsgroup, ask for new articles, and select the newsgroup."
6722 ;; Set the new ranges of read articles.
6726 (gnus-update-read-articles
6746 "Save the current number of read/marked articles in the dribble buffer.
6787 (gnus-cache-possibly-remove-articles)
6791 (gnus-dup-enter-articles))
7125 Returns the article selected or nil if there are no matching articles."
7130 (gnus-message 3 "No articles in the group")
7154 (gnus-message 3 "No more%s articles"
7174 If UNREAD is non-nil, only unread articles are selected.
7187 (gnus-message 7 "No more%s articles"
7210 (defun gnus-summary-goto-subjects (articles)
7213 (dolist (article articles)
7215 (gnus-summary-limit (append articles gnus-newsgroup-limit))
7220 If FORCE, also allow jumping to articles not currently shown."
7246 ;; Walking around summary lines with displaying articles.
7289 the article buffer. If PSEUDO is non-nil, pseudo-articles will also
7342 If UNREAD, only unread articles are selected.
7343 If SUBJECT, only articles with SUBJECT are selected.
7387 (gnus-message 7 "No more%s articles" (if unread " unread" "")))
7396 (gnus-message 7 "No more%s articles (%s)..."
7421 "No more%s articles%s " (if unread " unread" "")
7463 If UNREAD is non-nil, only unread articles are selected."
7609 Return nil if there are no unread articles."
7620 Return nil if there are no unread articles."
7630 Return nil if there are no unseen articles."
7654 Return nil if there are no articles."
7673 (error "No unread articles"))))
7749 NUMBER articles will be popped off."
7761 (defun gnus-summary-limit-to-articles (n)
7762 "Limit the summary buffer to the next N articles.
7763 If not given a prefix, use the process marked articles instead."
7766 (let ((articles (gnus-summary-work-articles n)))
7768 (gnus-summary-limit articles))
7786 "Limit the summary buffer to articles that have subjects that match a regexp.
7787 If NOT-MATCHING, excluding articles that have subjects that match a regexp."
7797 (let ((articles (gnus-summary-find-matching
7800 (unless articles
7802 (gnus-summary-limit articles))
7806 "Limit the summary buffer to articles that have authors that match a regexp.
7807 If NOT-MATCHING, excluding articles that have authors that match a regexp."
7816 "Limit the summary buffer to articles that are older than (or equal) AGE days.
7818 articles that are younger than AGE days."
7825 (read-string "Limit to articles younger than (in days, older when negative): ")
7827 "Limit to articles older than (in days, younger when negative): ")))
7843 articles d date is-younger)
7855 (push (gnus-data-number d) articles))))
7856 (gnus-summary-limit (nreverse articles)))
7860 "Limit the summary buffer to articles that match an 'extra' header."
7881 (let ((articles (gnus-summary-find-matching
7884 (unless articles
7886 (gnus-summary-limit articles))
7894 (let (articles)
7895 (dolist (number gnus-newsgroup-articles)
7897 (push number articles)))
7898 (gnus-summary-limit articles))
7906 "Limit the summary buffer to articles that are not marked as read.
7907 If ALL is non-nil, limit strictly to unread articles."
7926 "Exclude articles that are marked with MARKS (e.g. \"DK\").
7927 If REVERSE, limit the summary buffer to articles that are marked
7929 Returns how many articles were removed."
7934 "Limit the summary buffer to articles that are marked with MARKS (e.g. \"DK\").
7935 If REVERSE (the prefix), limit the summary buffer to articles that are
7938 Returns how many articles were removed."
7944 articles)
7948 (push (gnus-data-number (car data)) articles))
7950 (gnus-summary-limit articles))
7954 "Limit to articles with score at or above SCORE."
7955 (interactive "NLimit to articles with score of at least: ")
7957 articles)
7961 (push (gnus-data-number (car data)) articles))
7964 (gnus-summary-limit articles)
7968 "Limit to unseen articles."
7975 "Display all the hidden articles that is in the thread with ID in it.
7979 (let ((articles (gnus-articles-in-thread
7982 (gnus-summary-limit (nconc articles gnus-newsgroup-limit))
7983 (gnus-summary-limit-include-matching-articles
7989 (defun gnus-summary-limit-include-matching-articles (header regexp)
7990 "Display all the hidden articles that have HEADERs that match REGEXP."
7993 (let ((articles (gnus-find-matching-articles header regexp)))
7995 (gnus-summary-limit (nconc articles gnus-newsgroup-limit))
7998 (defun gnus-summary-insert-dormant-articles ()
7999 "Insert all the dormant articles for this group into the current buffer."
8003 (gnus-message 3 "No dormant articles for this group")
8007 "Display all the hidden articles that are marked as dormant.
8008 Note that this command only works on a subset of the articles currently
8012 (error "There are no dormant articles in this group"))
8018 "Hide all dormant articles."
8025 "Hide all dormant articles that have no children."
8028 articles d children)
8029 ;; Find all articles that are either not dormant or have
8037 (when (memq (car children) articles)
8042 (push (gnus-data-number d) articles)))
8045 (gnus-summary-limit articles)
8049 "Mark all unread excluded articles as read.
8053 (let ((articles (gnus-sorted-ndifference
8068 (mapcar (lambda (n) (cons n gnus-catchup-mark)) articles)
8070 (while (setq article (pop articles))
8075 (defun gnus-summary-limit (articles &optional pop)
8078 (setq articles (car gnus-newsgroup-limits)
8083 (setq gnus-newsgroup-limit articles)
8104 ;; article. The same goes when we can't find any articles
8109 ;; We return how many articles were removed from the summary
8152 "Cut off all uninteresting articles from the beginning of THREADS."
8167 This entails weeding out unwanted dormants, low-scored articles,
8281 "Mark all articles in THREAD as read."
8299 The difference between N and the number of articles fetched is returned."
8341 "Fetch all articles mentioned in the References header.
8342 Return the number of articles fetched."
8362 "Fetch all articles in the current thread.
8543 (let* ((articles (gnus-summary-work-articles n))
8548 (while (setq article (pop articles))
8576 (error "None of the articles could be interpreted as documents"))
8684 ;; No more articles.
8703 (defun gnus-find-matching-articles (header regexp)
8704 "Return a list of all articles that match REGEXP on HEADER.
8705 This search includes all articles in the current group that Gnus has
8707 (let ((articles nil)
8712 (push (mail-header-number header) articles)))
8713 (nreverse articles)))
8717 "Return a list of all articles that match REGEXP on HEADER.
8719 BACKWARD is non-nil. If BACKWARD is `all', do all articles.
8720 If UNREAD is non-nil, only unread articles will
8722 in the comparisons. If NOT-MATCHING, return a list of all articles that
8725 articles d func)
8741 (when (and (or (not unread) ; We want all articles...
8750 (push (gnus-data-number d) articles))) ; Success!
8751 (nreverse articles)))
8824 "Generate and print a PostScript image of the process-marked (mail) articles.
8831 to print the next N articles. If N is negative, print the N previous
8832 articles. If N is nil and articles have been marked with the process
8840 (dolist (article (gnus-summary-work-articles n))
9080 If N is a positive number, move the N next articles.
9081 If N is a negative number, move the N previous articles.
9082 If N is nil and any articles have been marked with the process mark,
9083 move those articles instead.
9109 (let ((articles (gnus-summary-work-articles n))
9127 (and (memq gnus-current-article articles)
9136 (gnus-summary-select-article nil nil nil (car articles))))
9141 articles prefix))
9154 (or (car select-method) to-newsgroup) articles)
9155 (while articles
9156 (setq article (pop articles))
9171 (not articles) t) ; Accept form
9172 (not articles))) ; Only save nov last time
9179 to-newsgroup select-method (not articles) t))))
9201 to-newsgroup select-method (not articles) t)))
9287 (gnus-add-marked-articles
9372 If N is a positive number, respool the N next articles.
9373 If N is a negative number, respool the N previous articles.
9374 If N is nil and any articles have been marked with the process mark,
9375 respool those articles instead.
9378 In the former case, the articles in question will be moved from the
9490 (defun gnus-summary-expire-articles (&optional now)
9491 "Expire all articles that are marked as expirable in the current group."
9495 'request-expire-articles gnus-newsgroup-name))
9501 ;; this group for `gnus-list-of-read-articles'
9505 (gnus-list-of-read-articles gnus-newsgroup-name))
9516 ;; There are expirable articles in this group, so we run them
9518 (gnus-message 6 "Expiring articles...")
9521 ;; The list of articles that weren't expired is returned.
9526 (setq es (gnus-request-expire-articles
9528 (setq es (gnus-request-expire-articles
9533 ;; really expired articles as nonexistent.
9547 (gnus-message 6 "Expiring articles...done")))))
9549 (defun gnus-summary-expire-articles-now ()
9550 "Expunge all expirable articles in the current group.
9551 This means that *all* articles that are marked as expirable will be
9558 (gnus-summary-expire-articles t))
9562 "Delete the N next (mail) articles.
9563 This command actually deletes articles. This is not a marking
9568 If N is nil and articles have been marked with the process mark,
9572 confirmation before the articles are deleted."
9574 (unless (gnus-check-backend-function 'request-expire-articles
9579 ;; Compute the list of articles to delete.
9580 (let ((articles (sort (copy-sequence (gnus-summary-work-articles n)) '<))
9586 (if (> (length articles) 1)
9587 (format "these %s articles" (length articles))
9590 ;; Delete the articles.
9591 (setq not-deleted (gnus-request-expire-articles
9592 articles gnus-newsgroup-name 'force))
9593 (while articles
9594 (gnus-summary-remove-process-mark (car articles))
9597 (unless (memq (car articles) not-deleted)
9598 (gnus-summary-mark-article (car articles) gnus-canceled-mark))
9599 (let* ((article (car articles))
9605 (setq articles (cdr articles)))
9607 (gnus-message 4 "Couldn't delete articles %s" not-deleted)))
9615 If ARG is nil, edit the decoded articles.
9616 If ARG is 1, edit the raw articles.
9617 If ARG is 2, edit the raw articles even in read-only groups.
9618 If ARG is 3, edit the articles with the current handles.
9619 Otherwise, allow editing of articles even in read-only
9813 "Mark articles which has the same subject as read, and then select the next.
9815 If UNMARK is negative, tick articles."
9831 "Mark articles which has the same subject as read.
9833 If UNMARK is negative, tick articles."
9844 (gnus-message 7 "%d articles are marked as %s"
9848 "Mark articles with same SUBJECT as read, and return marked number.
9850 If optional argument UNMARK is negative, mark articles as unread instead."
9876 ;; Return the number of marked articles.
9880 "Set the process mark on the next N articles.
9883 number of articles marked is returned."
9899 (gnus-message 7 "No more articles"))
9905 "Remove the process mark from the next N articles.
9907 the actual number of articles unmarked is returned."
9912 "Remove the process mark from all articles."
9927 (if (memq type '(processable cached replied forwarded recent saved))
9934 "Mark N articles forward as expirable.
9936 the actual number of articles marked is returned."
9941 "Mark N articles forward as spam.
9943 the actual number of articles marked is returned."
9949 ARTICLE can also be a list of articles."
9951 (let ((articles (if (listp article) article (list article))))
9952 (dolist (article articles)
9962 ARTICLE can also be a list of articles."
9963 (let ((articles (if (listp article) article (list article))))
9964 (dolist (article articles)
10006 "Mark N articles forward as dormant.
10008 the actual number of articles marked is returned."
10037 "Mark N articles as read forwards.
10039 The difference between N and the actual number of articles marked is
10195 ((memq article gnus-newsgroup-cached)
10196 gnus-cached-mark)
10301 "Tick N articles forwards.
10303 The difference between N and the number of articles ticked is returned."
10312 "Tick N articles backwards.
10313 The difference between N and the number of articles ticked is returned."
10328 "Mark N articles as read forwards.
10330 The difference between N and the actual number of articles marked is
10336 "Mark the N articles as read backwards.
10337 The difference between N and the actual number of articles marked is
10350 "Clear marks from N articles forward.
10357 "Clear marks from N articles backward.
10389 "Mark all unread articles between point and mark as read.
10390 If given a prefix, mark all articles between point and mark as read,
10408 "Mark articles with score less than SCORE with MARK."
10423 "Mark articles with score below SCORE as read."
10428 "Clear all marks from articles with score above SCORE."
10433 "Tick all articles with score above SCORE."
10438 "Mark articles with score over SCORE with MARK."
10455 "Display all the hidden articles that were expunged for low scores."
10468 (error "No expunged articles hidden"))
10481 "Mark all unread articles in this newsgroup as read.
10482 If prefix argument ALL is non-nil, ticked and dormant articles will
10487 articles before (after, if REVERSE is set) this point will be marked
10493 The number of articles marked as read is returned."
10502 "Mark absolutely all articles as read? "
10503 "Mark all unread articles as read? ")))
10520 ;; We actually mark all articles as canceled, which we
10540 "Mark all unticked articles before the current one as read.
10541 If ALL is non-nil, also mark ticked and dormant articles as read."
10546 ;; We check that there are unread articles.
10552 "Mark all unticked articles after (and including) the current one as read.
10553 If ALL is non-nil, also mark ticked and dormant articles as read."
10558 ;; We check that there are unread articles.
10564 "Mark all articles in this newsgroup as read.
10566 instead, which marks only unread articles as read."
10571 "Mark all unread articles in this group as read, then exit.
10572 If prefix argument ALL is non-nil, all articles are marked as read.
10583 "Mark all articles in this newsgroup as read, and then exit.
10585 instead, which marks only unread articles as read."
10590 "Mark all articles in this group as read and select the next group.
10591 If given a prefix, mark all articles, unread as well as ticked, as
10631 (defun gnus-summary-articles-in-thread (&optional article)
10632 "Return a list of all articles in the current thread.
10633 If ARTICLE is non-nil, return all articles in the thread that starts
10649 articles)
10661 (push (gnus-data-number (car data)) articles))
10665 ;; Return the list of articles.
10666 (nreverse articles)))
10684 is non-nil or the Subject: of both articles are the same."
10781 (defun gnus-map-articles (predicate articles)
10786 articles))))
10798 (gnus-map-articles
10918 "Mark articles under current thread as read.
10920 If the prefix argument is negative, tick articles instead."
10924 (let ((articles (gnus-summary-articles-in-thread)))
10928 ;; Mark all the articles.
10929 (while articles
10930 (gnus-summary-goto-subject (car articles))
10937 (setq articles (cdr articles))))
11038 If N is a positive number, save the N next articles.
11039 If N is a negative number, save the N previous articles.
11040 If N is nil and any articles have been marked with the process mark,
11041 save those articles instead.
11044 If the optional second argument NOT-SAVED is non-nil, articles saved
11048 (let* ((articles (gnus-summary-work-articles n))
11051 (num (length articles))
11052 ;; Whether to save decoded articles or raw articles.
11055 ;; When saving many articles in a single file, use the other
11056 ;; function to save articles other than the first one.
11063 (dolist (article articles)
11098 If N is a positive number, pipe the N next articles.
11099 If N is a negative number, pipe the N previous articles.
11100 If N is nil and any articles have been marked with the process mark,
11101 pipe those articles instead.
11115 If N is a positive number, save the N next articles.
11116 If N is a negative number, save the N previous articles.
11117 If N is nil and any articles have been marked with the process mark,
11118 save those articles instead."
11126 If N is a positive number, save the N next articles.
11127 If N is a negative number, save the N previous articles.
11128 If N is nil and any articles have been marked with the process mark,
11129 save those articles instead."
11137 If N is a positive number, save the N next articles.
11138 If N is a negative number, save the N previous articles.
11139 If N is nil and any articles have been marked with the process mark,
11140 save those articles instead."
11148 If N is a positive number, save the N next articles.
11149 If N is a negative number, save the N previous articles.
11150 If N is nil and any articles have been marked with the process mark,
11151 save those articles instead."
11159 If N is a positive number, save the N next articles.
11160 If N is a negative number, save the N previous articles.
11161 If N is nil and any articles have been marked with the process mark,
11162 save those articles instead."
11170 If N is a positive number, save the N next articles.
11171 If N is a negative number, save the N previous articles.
11172 If N is nil and any articles have been marked with the process mark,
11173 save those articles instead."
11181 If N is a positive number, save the N next articles.
11182 If N is a negative number, save the N previous articles.
11183 If N is nil and any articles have been marked with the process mark,
11184 save those articles instead."
11246 (defun gnus-read-move-group-name (prompt default articles prefix)
11253 (if (> (length articles) 1)
11254 (format "these %d articles" (length articles))
11564 (defvar gnus-summary-highlight-line-cached nil)
11570 gnus-summary-highlight-line-cached)
11571 gnus-summary-highlight-line-cached
11573 gnus-summary-highlight-line-cached
11598 (not (memq article gnus-newsgroup-cached)))))
11607 (defun gnus-update-read-articles (group unread &optional compute)
11608 "Update the list of read articles in GROUP.
11622 ;; Remove any negative articles numbers.
11628 ;; Compute the ranges of read articles by looking at the list of
11629 ;; unread articles.
11665 (gnus-get-unread-articles-in-group ',info
11671 ;; Set the number of unread articles in gnus-newsrc-hashtb.
11672 (gnus-get-unread-articles-in-group info (gnus-active group))
11808 The difference between N and the actual number of articles marked is
11815 "Mark N articles with MARK."
11840 (defun gnus-summary-insert-articles (articles)
11841 (when (setq articles
11842 (gnus-sorted-difference articles
11849 (gnus-fetch-headers articles)
11853 (gnus-dup-suppress-articles))
11861 ;; Let the Gnus agent mark articles as read.
11877 (defun gnus-summary-insert-old-articles (&optional all)
11878 "Insert all old articles in this group.
11879 If ALL is non-nil, already read articles become readable.
11880 If ALL is a number, fetch this number of articles."
11919 "How many articles from %s (%s %d): "
11945 (gnus-summary-insert-articles older)
11949 (defun gnus-summary-insert-new-articles ()
11950 "Insert all new articles in this group."
11965 (gnus-summary-insert-articles new)