Lines Matching +defs:old +defs:scored
65 (defcustom gnus-fetch-old-headers nil
66 "*Non-nil means that Gnus will try to build threads by grabbing old headers.
68 just marked as read) article, the old article will not normally be
70 will attempt to grab the headers to the old articles, and thereby
74 of old headers will be fetched. If it has the value `invisible', all
75 old headers will be fetched, but none will be displayed.
87 "*The number of old headers to fetch when doing \\<gnus-summary-mode-map>\\[gnus-summary-refer-thread].
88 If t, fetch all the available old headers."
222 "*Default threshold for a high scored article.
223 An article will be highlighted as high scored if its score is greater
230 "*Default threshold for a low scored article.
231 An article will be highlighted as low scored if its score is smaller
331 higest-scored article), `unseen' (place point on the subject line of
985 default-high: The default score for high scored articles.
986 default-low: The default score for low scored articles.
1347 (defvar gnus-newsgroup-scored nil
1348 "List of scored articles in the current newsgroup.")
1359 "List of `gnus-fetch-old-headers' articles in the current newsgroup.")
1399 gnus-newsgroup-scored gnus-newsgroup-kill-headers
1806 "o" gnus-summary-insert-old-articles
2530 ["See old articles" gnus-summary-insert-old-articles t]
3102 gnus-newsgroup-scored))
3744 ;; If the summary buffer is empty, but there are some low-scored
3751 ((and gnus-newsgroup-scored show-all)
4151 (defun gnus-build-old-threads ()
4152 ;; Look at all the articles that refer back to old articles, and
4334 nil (cdr (assq article gnus-newsgroup-scored))
4358 (old (car thread)))
4367 (setcar thread old)
4374 old-pos current thread data)
4379 (setq old-pos (gnus-point-at-bol))
4417 (if line nil current) data (- (point) old-pos))
4709 gnus-newsgroup-scored))
4712 gnus-newsgroup-scored))
4778 gnus-newsgroup-scored))
4974 (< (or (cdr (assq number gnus-newsgroup-scored))
4990 ;; We may have an old dummy line to output before this
5038 gnus-tmp-score (or (cdr (assq number gnus-newsgroup-scored))
5158 (< (or (cdr (assq number gnus-newsgroup-scored))
5178 (cdr (assq number gnus-newsgroup-scored))
5216 ;; We might want to fetch old headers, but
5219 (not (eq gnus-fetch-old-headers 'some))
5220 (not (numberp gnus-fetch-old-headers)))
5222 gnus-fetch-old-headers))))
5366 (when (and gnus-fetch-old-headers
5368 (if (eq gnus-fetch-old-headers 'invisible)
5370 (gnus-build-old-threads)))
5449 (assq article gnus-newsgroup-scored))
5483 (scored-list (gnus-killed-articles gnus-newsgroup-killed articles))
5484 (scored (length scored-list))
5497 ((and (or (<= scored marked) (= scored number))
5516 ((and (> scored marked) (< scored number)
5517 (> (- scored number) 20))
5520 (format "%s %s (%d scored, %d total): "
5523 scored number))))
5533 (if (and (not (zerop scored)) (<= (abs select) scored))
5535 (setq articles (sort scored-list '<))
5707 (let* ((old (cdr (assq (cdr type) (gnus-info-marks info))))
5708 (del (gnus-remove-from-range (gnus-copy-sequence old) list))
5710 (gnus-copy-sequence list) old)))
5978 ;; a case (which basically was the old function) is actually
6190 (defun gnus-summary-insert-subject (id &optional old-header use-old-header)
6194 (let* ((line (and (numberp old-header) old-header))
6195 (old-header (and (vectorp old-header) old-header))
6196 (header (cond ((and old-header use-old-header)
6197 old-header)
6209 old-header)
6211 (setq d (gnus-data-find (mail-header-number old-header))))
6223 (when old-header
6224 (mail-header-set-number header (mail-header-number old-header)))
6730 (let ((gnus-newsgroup-scored
6734 gnus-newsgroup-scored)))
6924 ;; to the old summary buffer when using a single
7323 'old))))
7571 (when (eq (gnus-summary-select-article nil nil 'pseudo) 'old)
8080 ;; We use the new limit, so we push the old limit on the stack.
8123 (when (or (eq gnus-fetch-old-headers 'some)
8124 (eq gnus-fetch-old-headers 'invisible)
8125 (numberp gnus-fetch-old-headers)
8128 ;; Deal with old-fetched headers and sparse threads.
8136 (eq gnus-fetch-old-headers 'invisible))
8153 (when (or (eq gnus-fetch-old-headers 'some)
8154 (eq gnus-fetch-old-headers 'invisible)
8155 (numberp gnus-fetch-old-headers)
8167 This entails weeding out unwanted dormants, low-scored articles,
8168 fetch-old-headers verbiage, and so on."
8173 (not (eq gnus-fetch-old-headers 'some))
8174 (not (numberp gnus-fetch-old-headers))
8175 (not (eq gnus-fetch-old-headers 'invisible))
8227 ;; If this is "fetch-old-headered" and there is no
8229 (and (or (eq gnus-fetch-old-headers 'some)
8230 (numberp gnus-fetch-old-headers))
8233 ;; If this is "fetch-old-headered" and `invisible', then
8235 (and (eq gnus-fetch-old-headers 'invisible)
8243 ;; low-scored, then we don't want this article.
8246 (or (cdr (assq number gnus-newsgroup-scored))
8363 If LIMIT (the numerical prefix), fetch that many old headers instead
8369 (unless (eq gnus-fetch-old-headers 'invisible)
9532 ;; We go through the old list of expirable, and mark all
9978 ;; Remove old bookmark, if one exists.
9998 ;; Remove old bookmark, if one exists.
10094 (old-mark (gnus-summary-article-mark article)))
10097 (if (eq mark old-mark)
10159 (old-mark (gnus-summary-article-mark article)))
10162 (if (eq mark old-mark)
10236 ;; Replace the old mark with the new mark.
10458 (let ((scored gnus-newsgroup-scored)
10460 (while scored
10461 (unless (gnus-summary-article-header (caar scored))
10462 (and (setq h (gnus-number-to-header (caar scored)))
10463 (< (cdar scored) gnus-summary-expunge-below)
10465 (setq scored (cdr scored)))
11556 ;; Move old overlay.
11589 gnus-newsgroup-scored))
11856 (when (and gnus-fetch-old-headers
11858 (if (eq gnus-fetch-old-headers 'invisible)
11860 (gnus-build-old-threads)))
11877 (defun gnus-summary-insert-old-articles (&optional all)
11878 "Insert all old articles in this group.
11883 (let ((old (sort (mapcar 'car gnus-newsgroup-data) '<))
11889 (gnus-range-difference (list gnus-newsgroup-active) old))
11944 (message "No old news.")
11946 (gnus-summary-limit (gnus-sorted-nunion old older))))
11953 (let ((old (sort (mapcar 'car gnus-newsgroup-data) '<))
11954 (old-active gnus-newsgroup-active)
11960 (while (> i (cdr old-active))
11968 (gnus-summary-limit (gnus-sorted-nunion old new))))