Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-score.el @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 43dd3413c7c7
children 15872534500d
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
1079 (adapt-file (car (gnus-score-get 'adapt-file alist))) 1079 (adapt-file (car (gnus-score-get 'adapt-file alist)))
1080 (local (gnus-score-get 'local alist)) 1080 (local (gnus-score-get 'local alist))
1081 (decay (car (gnus-score-get 'decay alist))) 1081 (decay (car (gnus-score-get 'decay alist)))
1082 (eval (car (gnus-score-get 'eval alist)))) 1082 (eval (car (gnus-score-get 'eval alist))))
1083 ;; Perform possible decays. 1083 ;; Perform possible decays.
1084 (when (and gnus-decay-scores 1084 (when gnus-decay-scores
1085 (gnus-decay-scores 1085 (when (or (not decay)
1086 alist (or decay (gnus-time-to-day (current-time))))) 1086 (gnus-decay-scores alist (gnus-time-to-day (current-time))))
1087 (gnus-score-set 'touched '(t) alist) 1087 (gnus-score-set 'touched '(t) alist)
1088 (gnus-score-set 'decay (list (gnus-time-to-day (current-time))))) 1088 (gnus-score-set 'decay (list (gnus-time-to-day (current-time))))))
1089 ;; We do not respect eval and files atoms from global score 1089 ;; We do not respect eval and files atoms from global score
1090 ;; files. 1090 ;; files.
1091 (and files (not global) 1091 (and files (not global)
1092 (setq lists (apply 'append lists 1092 (setq lists (apply 'append lists
1093 (mapcar (lambda (file) 1093 (mapcar (lambda (file)
2194 gnus-summary-default-score) 2194 gnus-summary-default-score)
2195 (set-buffer "*Score Trace*") 2195 (set-buffer "*Score Trace*")
2196 (gnus-add-current-to-buffer-list) 2196 (gnus-add-current-to-buffer-list)
2197 (while trace 2197 (while trace
2198 (insert (format "%S -> %s\n" (cdar trace) 2198 (insert (format "%S -> %s\n" (cdar trace)
2199 (file-name-nondirectory (caar trace)))) 2199 (if (caar trace)
2200 (file-name-nondirectory (caar trace))
2201 "(non-file rule)")))
2200 (setq trace (cdr trace))) 2202 (setq trace (cdr trace)))
2201 (goto-char (point-min)) 2203 (goto-char (point-min))
2202 (gnus-configure-windows 'score-trace))) 2204 (gnus-configure-windows 'score-trace)))
2203 (set-buffer gnus-summary-buffer) 2205 (set-buffer gnus-summary-buffer)
2204 (setq gnus-newsgroup-scored old-scored))) 2206 (setq gnus-newsgroup-scored old-scored)))
2743 (when (stringp (car entry)) 2745 (when (stringp (car entry))
2744 (setq entry (cdr entry)) 2746 (setq entry (cdr entry))
2745 (while (setq kill (pop entry)) 2747 (while (setq kill (pop entry))
2746 (when (nth 2 kill) 2748 (when (nth 2 kill)
2747 (setq updated t) 2749 (setq updated t)
2748 (setq score (or (car kill) gnus-score-interactive-default-score) 2750 (setq score (or (nth 1 kill)
2751 gnus-score-interactive-default-score)
2749 n times) 2752 n times)
2750 (while (natnump (decf n)) 2753 (while (natnump (decf n))
2751 (setq score (funcall gnus-decay-score-function score))) 2754 (setq score (funcall gnus-decay-score-function score)))
2752 (setcar kill score)))))) 2755 (setcdr kill (cons score
2756 (cdr (cdr kill)))))))))
2753 ;; Return whether this score file needs to be saved. By Je-haysuss! 2757 ;; Return whether this score file needs to be saved. By Je-haysuss!
2754 updated)) 2758 updated))
2755 2759
2756 (provide 'gnus-score) 2760 (provide 'gnus-score)
2757 2761