equal
deleted
inserted
replaced
1519 (eval-after-load 'gnus-score |
1519 (eval-after-load 'gnus-score |
1520 '(progn |
1520 '(progn |
1521 ;; (add-hook 'message-sent-hook 'gnus-score-followup-article) |
1521 ;; (add-hook 'message-sent-hook 'gnus-score-followup-article) |
1522 (add-hook 'message-sent-hook 'gnus-score-followup-thread) |
1522 (add-hook 'message-sent-hook 'gnus-score-followup-thread) |
1523 )) |
1523 )) |
|
1524 |
|
1525 (defun my-gnus-thread-score-function (&rest scores) |
|
1526 "If any followup have positive score assign greater available |
|
1527 score to thread, else assign lesser available score." |
|
1528 (let ( (max (apply 'max scores)) (min (apply 'min scores)) ) |
|
1529 (if (< 0 max) max min))) |
|
1530 (setq gnus-thread-score-function #'my-gnus-thread-score-function) |
|
1531 (defun my-gnus-thread-total-score () |
|
1532 "Helper to debug `gnus-thread-score-function' function." |
|
1533 (interactive) |
|
1534 (message |
|
1535 (int-to-string |
|
1536 (gnus-thread-total-score |
|
1537 (gnus-id-to-thread (mail-header-id (gnus-summary-article-header))))))) |
1524 |
1538 |
1525 ;; Especially highlight my message and replays to me. |
1539 ;; Especially highlight my message and replays to me. |
1526 (eval-after-load 'gnus-sum |
1540 (eval-after-load 'gnus-sum |
1527 '(progn |
1541 '(progn |
1528 (defface my-gnus-own-unread-face nil |
1542 (defface my-gnus-own-unread-face nil |