Lines Matching +defs:select +defs:articles
448 mark: Automatically mark articles below this.
449 expunge: Automatically expunge articles below this.
460 (defvar gnus-scores-articles nil)
757 (gnus-appt-select-lowest-window)
764 (select-window (gnus-get-buffer-window gnus-summary-buffer t))))
767 ;; Return HEADER for current articles, or error.
778 (error "Pseudo-articles can't be scored")))
957 "Automatically mark articles with score below SCORE as read."
991 "Automatically expunge articles with score below SCORE."
1015 "Add SCORE to all later articles in the thread the current buffer is part of."
1472 gnus-scores-articles nil
1490 ;; Create articles, an alist of the form `(HEADER . SCORE)'.
1496 (setq gnus-scores-articles ;Total of 2 * N cons-cells used.
1498 gnus-scores-articles))))
1533 ;; Add articles to `gnus-newsgroup-scored'.
1534 (while gnus-scores-articles
1536 (cdar gnus-scores-articles))
1538 (push (cons (mail-header-number (caar gnus-scores-articles))
1539 (cdar gnus-scores-articles))
1541 (setq gnus-scores-articles (cdr gnus-scores-articles)))
1611 (articles gnus-scores-articles))
1617 (while articles
1619 (or (aref (caar articles) gnus-score-index) 0)
1625 (setcdr (car articles) (+ score (cdar articles))))
1626 (setq articles (cdr articles)))
1654 (articles gnus-scores-articles)
1675 (while (setq article (pop articles))
1700 (setq gnus-scores-articles
1701 (sort gnus-scores-articles
1708 (articles gnus-scores-articles)
1716 (when articles
1717 (setq last (mail-header-number (caar (last articles))))
1727 (while articles
1728 (setq article (mail-header-number (caar articles)))
1773 (setcdr (car articles) (+ score (cdar articles)))
1793 (setq articles (cdr articles)))))))
1808 alike last this art entries alist articles
1820 (setq gnus-scores-articles (sort gnus-scores-articles
1822 articles gnus-scores-articles)
1825 (while articles
1826 (setq art (car articles)
1828 articles (cdr articles))
1833 (put-text-property (1- (point)) (point) 'articles alike))
1838 (put-text-property (1- (point)) (point) 'articles alike))
1871 (point) 'articles)))
1881 (setq found (setq arts (get-text-property (point) 'articles)))
1939 alike last this art entries alist articles
1942 ;; Sorting the articles costs os O(N*log N) but will allow us to
1948 (setq gnus-scores-articles
1951 gnus-scores-articles
1952 (sort gnus-scores-articles 'gnus-score-string<))
1953 articles gnus-scores-articles)
1956 (while (setq art (pop articles))
1973 ;; terminating newline referring to the articles with
1976 (put-text-property (1- (point)) (point) 'articles alike))
1981 (put-text-property (1- (point)) (point) 'articles alike))
2039 (point) 'articles)))
2080 (setq found (setq arts (get-text-property (point) 'articles)))
2127 (setq found (setq arts (get-text-property (point) 'articles)))
2213 (append (get-text-property (gnus-point-at-eol) 'articles) val)
2227 ;; Compare headers in articles A2 and A2.
2323 ;; Go through all articles.
2511 (defun gnus-summary-raise-same-subject-and-select (score)
2512 "Raise articles which has the same subject with SCORE and select the next."
2521 "Raise articles which has the same subject with SCORE."
2534 "Raise the score of the articles in the current thread with SCORE."
2539 (let ((articles (gnus-summary-articles-in-thread)))
2540 (while articles
2541 (gnus-summary-goto-subject (car articles))
2543 (setq articles (cdr articles))))
2552 (defun gnus-summary-lower-same-subject-and-select (score)
2553 "Raise articles which has the same subject with SCORE and select the next."
2555 (gnus-summary-raise-same-subject-and-select (- score)))
2558 "Raise articles which has the same subject with SCORE."
2563 "Lower score of articles in the current thread with SCORE."