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 |
1674 |
|
1675 (defvar my-gnus-summary-kill-same-subject-min-len 8 |
|
1676 "Minimal length of subject string to ignore this subject.") |
1675 (defun my-gnus-summary-kill-same-subject (&optional unmark) |
1677 (defun my-gnus-summary-kill-same-subject (&optional unmark) |
1676 "Add negative scores for all articles with same subject." |
1678 "Add negative scores for all articles with same subject." |
1677 (interactive "P") |
1679 (interactive "P") |
1678 (when (or (not (integerp unmark)) (< 0 unmark)) |
1680 (when (or (not (integerp unmark)) (< 0 unmark)) |
1679 (gnus-summary-score-entry |
1681 (let ( (subj (gnus-simplify-subject-fuzzy (gnus-summary-article-subject))) ) |
1680 "subject" (gnus-simplify-subject-fuzzy (gnus-summary-article-subject)) |
1682 (when (<= (length subj) my-gnus-summary-kill-same-subject-min-len) |
1681 's (- gnus-score-interactive-default-score) (current-time-string))) |
1683 (gnus-summary-score-entry |
|
1684 "subject" subj |
|
1685 's (- gnus-score-interactive-default-score) (current-time-string))))) |
1682 (gnus-summary-kill-same-subject unmark)) |
1686 (gnus-summary-kill-same-subject unmark)) |
1683 (eval-after-load 'gnus-summary |
1687 (eval-after-load 'gnus-sum |
1684 '(define-key gnus-summary-mode-map (kbd "C-k") #'my-gnus-summary-kill-same-subject)) |
1688 '(define-key gnus-summary-mode-map (kbd "C-k") #'my-gnus-summary-kill-same-subject)) |
1685 |
1689 |
1686 (defun my-gnus-thread-score-function (&rest scores) |
1690 (defun my-gnus-thread-score-function (&rest scores) |
1687 "If any followup have positive score assign greater available |
1691 "If any followup have positive score assign greater available |
1688 score to thread, else assign lesser available score." |
1692 score to thread, else assign lesser available score." |