equal
deleted
inserted
replaced
1669 (eval-after-load 'gnus-score |
1669 (eval-after-load 'gnus-score |
1670 '(progn |
1670 '(progn |
1671 ;; (add-hook 'message-sent-hook 'gnus-score-followup-article) |
1671 ;; (add-hook 'message-sent-hook 'gnus-score-followup-article) |
1672 (add-hook 'message-sent-hook 'gnus-score-followup-thread) |
1672 (add-hook 'message-sent-hook 'gnus-score-followup-thread) |
1673 )) |
1673 )) |
|
1674 |
|
1675 (defun my-gnus-summary-kill-same-subject (&optional unmark) |
|
1676 "Add negative scores for all articles with same subject." |
|
1677 (interactive "P") |
|
1678 (when (or (not (integerp unmark)) (< 0 unmark)) |
|
1679 (gnus-summary-score-entry |
|
1680 "subject" (gnus-simplify-subject-fuzzy (gnus-summary-article-subject)) |
|
1681 's (- gnus-score-interactive-default-score) (current-time-string))) |
|
1682 (gnus-summary-kill-same-subject unmark)) |
|
1683 (eval-after-load 'gnus-summary |
|
1684 '(define-key gnus-summary-mode-map (kbd "C-k") #'my-gnus-summary-kill-same-subject)) |
1674 |
1685 |
1675 (defun my-gnus-thread-score-function (&rest scores) |
1686 (defun my-gnus-thread-score-function (&rest scores) |
1676 "If any followup have positive score assign greater available |
1687 "If any followup have positive score assign greater available |
1677 score to thread, else assign lesser available score." |
1688 score to thread, else assign lesser available score." |
1678 (let ( (max (apply 'max scores)) (min (apply 'min scores)) ) |
1689 (let ( (max (apply 'max scores)) (min (apply 'min scores)) ) |