Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-score.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children 8fc7fe29b841
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
1869 (goto-char (point-min)) 1869 (goto-char (point-min))
1870 (while (and (not (eobp)) 1870 (while (and (not (eobp))
1871 (funcall search-func match nil t)) 1871 (funcall search-func match nil t))
1872 ;; Is it really exact? 1872 ;; Is it really exact?
1873 (and (eolp) 1873 (and (eolp)
1874 (= (point-at-bol) (match-beginning 0)) 1874 (= (gnus-point-at-bol) (match-beginning 0))
1875 ;; Yup. 1875 ;; Yup.
1876 (progn 1876 (progn
1877 (setq found (setq arts (get-text-property 1877 (setq found (setq arts (get-text-property
1878 (point) 'articles))) 1878 (point) 'articles)))
1879 ;; Found a match, update scores. 1879 ;; Found a match, update scores.
1940 (case-fold-search (not (= mt ?F))) 1940 (case-fold-search (not (= mt ?F)))
1941 found) 1941 found)
1942 (goto-char (point-min)) 1942 (goto-char (point-min))
1943 (while (and (not (eobp)) 1943 (while (and (not (eobp))
1944 (search-forward match nil t)) 1944 (search-forward match nil t))
1945 (when (and (= (point-at-bol) (match-beginning 0)) 1945 (when (and (= (gnus-point-at-bol) (match-beginning 0))
1946 (eolp)) 1946 (eolp))
1947 (setq found (setq arts (get-text-property (point) 'articles))) 1947 (setq found (setq arts (get-text-property (point) 'articles)))
1948 (if trace 1948 (if trace
1949 (while (setq art (pop arts)) 1949 (while (setq art (pop arts))
1950 (setcdr art (+ score (cdr art))) 1950 (setcdr art (+ score (cdr art)))
2024 (setq word (downcase (buffer-substring 2024 (setq word (downcase (buffer-substring
2025 (match-beginning 0) (match-end 0)))) 2025 (match-beginning 0) (match-end 0))))
2026 hashtb)) 2026 hashtb))
2027 (gnus-sethash 2027 (gnus-sethash
2028 word 2028 word
2029 (append (get-text-property (point-at-eol) 'articles) val) 2029 (append (get-text-property (gnus-point-at-eol) 'articles) val)
2030 hashtb))) 2030 hashtb)))
2031 (set-syntax-table syntab)) 2031 (set-syntax-table syntab))
2032 ;; Make all the ignorable words ignored. 2032 ;; Make all the ignorable words ignored.
2033 (let ((ignored (append gnus-ignored-adaptive-words 2033 (let ((ignored (append gnus-ignored-adaptive-words
2034 gnus-default-ignored-adaptive-words))) 2034 gnus-default-ignored-adaptive-words)))