Lines Matching +defs:old +defs:mark
224 `((gnus-kill-file-mark)
225 (gnus-unread-mark)
226 (gnus-read-mark
229 (gnus-catchup-mark
231 (gnus-killed-mark
234 (gnus-del-mark
280 `((,gnus-read-mark . 30)
281 (,gnus-catchup-mark . -10)
282 (,gnus-killed-mark . -20)
283 (,gnus-del-mark . -15))
448 mark: Automatically mark articles below this.
489 "m" gnus-score-set-mark-below
847 (let ((old (gnus-score-get header))
867 (if (and old
868 (setq elem (assoc match old))
872 ;; Yup, we just add this new score to the old elem.
878 (gnus-score-set header (if old (cons new old) (list new)) nil t))
956 (defun gnus-score-set-mark-below (score)
957 "Automatically mark articles with score below SCORE as read."
962 (gnus-score-set 'mark (list score))
964 (setq gnus-summary-mark-below score)
1061 (gnus-summary-update-mark
1064 gnus-score-below-mark gnus-score-over-mark))
1200 (let ((mark (car (gnus-score-get 'mark alist)))
1202 (mark-and-expunge (car (gnus-score-get 'mark-and-expunge alist)))
1207 (thread-mark-and-expunge
1208 (car (gnus-score-get 'thread-mark-and-expunge alist)))
1266 (or thread-mark-and-expunge gnus-thread-expunge-below))
1267 (setq gnus-summary-mark-below
1268 (or mark mark-and-expunge gnus-summary-mark-below))
1270 (or expunge mark-and-expunge gnus-summary-expunge-below))
1316 ;; This is an old-style score file.
1317 (setq gnus-score-alist (gnus-score-transform-old-to-new alist)))
1373 (defun gnus-score-transform-old-to-new (alist)
2285 (setq elem (cdr (assq (gnus-data-mark (car data)) alist)))
2329 (gnus-data-mark d)
2331 ;; This article has a mark that should lead to
2383 (let ((old-scored gnus-newsgroup-scored))
2441 (setq gnus-newsgroup-scored old-scored)))